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INTRODUCCION 


Erase una vez una época en la que escribir programas para jugar 
con el ordenador no era cosa fácil. Allá en los oscuros y confusos días 
de nuestro pasado se podían llegar a pagar entre 80 y 100 dólares por 
una sola hora de acceso a una terminal y esto no era lo peor: la única 
salida con la que contaban nuestros abnegados antepasados era un 
ruidoso y casi ininteligible teleimpresor. Imagínese lo que le hubieran 
supuesto estas limitaciones a alguien come usted, que seguro que 
puede llegar a pasarse horas y más horas mejorando, Lada con todo 
amor, su última obra maestra. 

Afortunadamente nosotros ya no tenemos que sufrir ESAS condicio- 
nes medievales. El lujo de poseer un ordenador propio, que utiliza 
una pantalla de televisión, con un acceso ilimitado a la máquina, le 
permite a uno trabajar cuanto tiempo quiera creando sus propios jue- 
gos y programas. 

Este libro es una selección de mis juegos de ordenador favoritos. 
Espero que no pueda resistir la tentación de ejecutarlos en seguida y 
que por lo menos algunos de ellos pasen a formar parte de sus propios 
programas favoritos. De lo que estoy seguro es de que en las próximas 
semanas no le va a faltar diversión. 

He procurado que los juegos fueran variados para acertar con 
todos los gustos. Como verá si echa un vistazo al libro, la selección 
incluye de todo. Desde los juegos de mesa «clásicos», como el AJE- 
DREZ y el OTHELLO, a los programas de aventuras, como LA 
FORTALEZA DE LOS ENANOS y EL LEGADO DE BANNOCH- 
BURN, pasando por aquellos del tipo de LA SEÑORITA DE XE- 
NOFOBIA, que no son sino simples simulaciones y cuyo único objeti- 
vo es el de divertirse un rato. Este libro contiene más de cuarenta 
juegos, todos ellos escritos con la intención de que su ordenador no 
vuelva a tener la oportunidad de quejarse de «aburrimiento». 
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He escrito un libro deliberadamente abierto. Es decir, en contraste 
con muchas de las otras colecciones de programas para juegos existen- 
tes en el mercado, yo he partido de la base de que cada lector querrá 
adaptar y mejorar el programa una vez que lo haya ejecutado. Esta es 
la razón por la que he incluido interrupciones en muchos de ellos, en 
algunos casos línea a línea, con el fin de que uno pueda darse cuenta 
de qué función tiene cada sección de código. Asimismo, en la intro- 
ducción a cada apartado he hecho un pequeño comentario sobre la 
filosofía que entraña la escritura de ese determinado tipo de juegos, al 
tiempo qué he señalado cuáles son los algoritmos básicos que se pue- 
den usar para el mismo y, en general, he intentado proporcionarle al 
lector una base sólida sobre la que desarrollar sus propias técnicas en 
la escritura de juegos de ordenador. 

Al final del libro el lector encontrará una sección dedicada, casi por 
entero, a proporcionarle ideas que se pueden convertir en programas 
para jugar con el ordenador. 


COMO EJECUTAR LOS PROGRAMAS 


Para escribir este libro utilicé, de un modo totalmente deliberado, 
la versión de BASIC más general que me fue posible. Así pues, no 
aparecerán ni PEEKS ni POKES, ni se usarán conjuntos de caracteres 
gráficos ni instrucciones del tipo de SOUND o PLAY. Parto del su- 
puesto de que mis lectores tendrán acceso a READ y DATA y de que 
sus pantallas tendrán entre treinta y dos y cuarenta caracteres de 
ancho (en el caso de tener un ordenador del tipo VIC-20 cuya pantalla 
no es tan ancha, en seguida se dará cuenta de que es extremadamente 
sencillo adaptar la salida del programa para que sirva para un ancho, 
pongamos, de doce caracteres, ya que la mayoría de los juegos sólo 
necesitan el ancho de un tablero de juego). Se utilizan las Órdenes 
estándar para el manejo de series (como LEFT, RIGHT, y MID), las 
cuales han de traspasarse al mecanismo de segmentación de series de 
Sinclair en el caso de tener un ordenador del tipo T/S 2000 o Spec- 
trum. Esto no entraña ninguna dificultad e incluso he procurado que 
haya que utilizar esas Órdenes lo menos posible, de modo que la 
mayoría de los programas debería pasar a su ordenador sólo con escri- 
birlos directamente. 

* N. del E. Muchos de los mensajes de los programas utilizan la letra Ñ. En los listados del 


libro no se ha utilizado para darles carácter más general. El lector deberá adaptar estos 
mensajes según el procedimiento de su ordenador para generar la N. 


Por supuesto, tendrá que jugar un poco con la presentación en 
pantalla, para hacerlo lo más efectivo posible. Y ya que toco este tema, 
espero que cada lector modifique y adapte los programas de modo que 
pueda sacar el máximo partido al sistema que uuilice, añadiéndole en 
donde se pueda sonido y color, además de los gráficos propios del 
sistema. 

Muchos de los programas vuelven a dibujar el tablero, o campo de 
juego, después de cada jugada. Por razones de simplificación, he pre- 
cedido de una orden CLS para borrar la pantalla cada una de estas 
nuevas reimpresiones. Algunos sistemas exigen una orden del tipo 
PRINT «CLR», de modo que en el caso de los usuarios de esos 
sistemas se ha de hacer esta sustitución cada vez que se dé el caso. Y 
lo que es más importante, en seguida observará que después de que la 
pantalla ha quedado borrada al principio del juego, la salida del pro- 
grama puede hacerse mucho más efectiva si se sustituye CLS por una 
orden del tipo «home» con el fin de que el programa se imprima de 
cada vez superpuesto sobre sí mismo. En un juego como EL CAMPO 
MINADO, por ejemplo, esto da la impresión de que los robots se 
mueven. Lo mismo puede apreciarse en los juegos de mesa. De he- 
cho, el ver cómo las fichas se mueven en el tablero es de lo más 
efectista y añade un placer más a la ejecución del programa. 

Así pues, si su sistema cuenta con los medios para reajustar el 
cursor en la parte superior de la pantalla sin tener que borrarla prime- 
ro (del tipo de PRINT AT 0,0 oPRINTGO o LOCATE 1,1 u otros del 
mismo tipo) asegúrese de que pone cualquiera de ellos en vez del CLS 
al inicio de la sección de reimpresión. 

Estos programas fueron escritos en un IBM PC. En este ordenador, 
si uno quiere generar números enteros aleatorios entre el 1 y el 10, ha 
de utilizar una orden del tipo A = INT (RND+*10) + 1. Como com- 
probará éste es el formato que se utiliza a lo largo de todo el libro. Si 
su sistema no lo acepta, tendrá que sustituir ya sea A= RND(10) o 
A = INT(RND (0) * 10) + 1 0 A = INT(RND(1)x10) +1 (y es po- 
sible que tenga que preceder esta orden de LET). Lo más seguro es 
que el lector ya sepa cómo se realizan estas Operaciones, pero si le 
quedara alguna duda, lo mejor es que consulte al apartado RND o 
«números aleatorios» en el manual de uso de su sistema. 

El ordenador en el que yo desarrollé estos programas da siempre la 
misma secuencia de números aleatorios cada vez que se ejecuta el 
programa. Como los números que están más o menos distribuidos 
aleatoriamente se necesitan en muchos programas, lo que he hecho ha 
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sido inicializar, sembrar, en cada caso, el generador de números alea- 
torios siguiendo uno de los métodos que se describen a continuación. 

En unos casos he utilizado INKEY$ para hacer un bucle en el 
programa aumentando una variable al hacerlo hasta el momento de 
presionar una clave, tras lo cual he utilizado esa variable para iniciali- 
zar el generador de números aleatorios (como en RANDOMIZE N); 
en otros, he tomado como «semilla» para inicializar o sembrar los 
segundos del reloj incorporado al ordenador (lo que da lugar en mu- 
chos programas a esa aterradora línea RANDOMIZE VAL (RIGHT$ 
(TIMES, 2)). 

Si se dispone de un ordenador que no produce los mismos números 
en la misma secuencia cada vez que se ejecuta el programa, no hay 
más que saltarse esas líneas por las buenas. También puede, si su 
sistema lo acepta, utilizar simplemente RANDOMIZE (o RAND) sin 
acompañarlo de número alguno. El manual de uso indicará en cada 
caso lo que se debe hacer. Si de todas maneras no estuviera seguro de 
lo que tiene que hacer y su ordenador no aceptara esa larga línea que 
incluye TIMES, omítala toda. El programa funcionará a la perfección 
sin ella. 

Aunque gran parte de la salida entrecomillada en las sentencias 
PRINT está en minúsculas, todos los programas (a excepción del aje- 
drez que necesita las minúsculas para significar las fichas del jugador 
humano), esperan la entrada en mayúsculas. Si su sistema no cuenta 
con minúsculas, introduzca simplemente el material de las sentencias 
PRINT en mayúsculas. Yo lo introduje en minúsculas porque me 
pareció que así quedaba más bonito, pero no tiene nada que ver con la 
ejecución real del programa. 

De hecho, verá como cuando empiece a introducir el programa, 
usted mismo hará automáticamente todos los pequeños cambios preci- 
sos para acomodarlo a las características peculiares del sistema que 
utilice. Si he hecho todas estas aclaraciones, ha sido sólo para que el 
lector no perdiera el tiempo antes de empezar a ejecutar los progra- 
mas, pero lo más seguro es que estén de más y que ninguno de mis 
lectores tenga que hacer uso de ellas. Conque no se deje intimidar por 
la extensión de esta introducción y siga adelante. 

La mayoría de los programas incluidos en este libro entran bien en 
8K. La excepción es EL LEGADO BANNOCHBURN que exige casi 
17K en mi sistema. El ajedrez ocupa 8K y los programas más cortos 
vienen a hacerlo por debajo de 4K. Si tiene dificultad en introducir un 
programa en su sistema debido a escasez de memoria, suprima las 


sentencias REM (la mayoría de las llamadas GOSUB y GOTO no se 
refieren al REM principal sino que van a la propia rutina que sigue al 
REM identificador) y acorte las sentencias PRINT. Es imposible pre- 
decir la memoria que necesitará cada programa en los diferentes siste- 
mas, ya que ésta puede estar organizada de varias maneras diferentes 
y el espacio de trabajo que el programa requiere varía de un sistema al 
otro. 


Para que los programas le quepan en su máquina, si no dispone de 
mucha memoria (y para que el tiempo de introducción sea el menor) 
muy pocos programas incluyen instrucciones de juego. Estas están en 
el libro. No obstante, si cuenta con la memoria necesaria (y tiene cos- 
tumbre de hacerlo) puede añadir sin dificultad una línea"'¿Desea ins- 
trucciones?” como parte de la subrutina de inicialización incluyendo 
después una explicación abreviada sacada del texto del programa. 

He seguido técnicas de programación estructuradas en todos los 
programas que se prestaran a este enfoque. Estas técnicas las explico 
en el material que acompaña al programa de ajedrez. Es posible que el 
lector encuentre, como me sucedió a mí mismo cuando al fin me 
decidí a poner en práctica todos los consejos que había leído en libros 
y artículos, que el trabajar «de arriba a abajo» hace mucho más senci- 
lla y más precisa la tarea de escribir y modificar un programa. Ade- 
más, es mucho más fácil llegar a terminar y ejecutar un programa 
cuando se ha escrito siguiendo esta pauta. Y lo que es todavía más 
importante: podrá llegar a las partes más divertidas —la propia ejecu- 
ción— mucho antes que en el caso contrario. 

Muchos programas incluyen un bucle de retardo. Como el retraso 
producido dependerá del sistema que se utilice, lo que hay que hacer 
es ajustar esos falsos bucles (que normalmente se mantienen en subru- 
tinas hasta el final del programa) de modo que el funcionamiento sea 
lo más efectivo posible. 

Finalmente unas palabras sobre las variables. En varios casos se han 
usado como variables palabras completas (como PUNTOS). Sin em- 
bargo, sólo las dos primeras letras son significativas. Si el sistema que 
se utiliza sólo acepta nombres variables de dos letras, introduzca las 
dos primeras (como PU en este caso). De aceptarlo el sistema, e 
incluso, aunque sólo reconozca las dos primeras letras de un nombre 
variable, se ha de incluir el nombre entero. Haciendo esto, se dará 
cuenta de que es mucho más fácil saber lo que está sucediendo en el 
programa en cada momento. 
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JUEGOS DE MESA 


Ciertos juegos no hubieran existido nunca sin los ordenadores. 

Piense en todas las variedades de Invasores del Espacio o simila- 
res. Ninguno de ellos hubiera podido existir antes de que se desarro- 
llara el ordenador y el uso de la televisión como pantalla de salida. 
Muchos otros juegos, sin embargo, tenían miles de años de existencia 
cuando se empezaron a desarrollar los ordenadores, lo que no impide 
que cada vez sean más los juegos tradicionales, de mesa fundamental- 
mente, que se están informatizando. Es más, los juegos de mesa son 
ahora tanto o más apreciados por los aficionados a los juegos en el 
ordenador como lo eran en los días anteriores a la aparición de éste. 

Este capítulo incluye una generosa selección de juegos: 


AJEDREZ 

GOMUKU 

CUATRO EN RAYA 
DAMAS 

SHOGUN (HASAMI SHOGI) 
AWARI 

KNIGHTSBRIDGE 
REVERSIOTHELLO 


Empezaremos haciendo un breve comentario sobre la manera de 
modificar los juegos de mesa o tablero para que el ordenador pueda 
manejarlos. Las ideas que comentaré en las próximas páginas se han 
aplicado a todos los juegos de mesa que aparecen en este capítulo, 
salvo el Awari. 
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Todos los programas incluidos en este capítulo tienen una caracte- 
rística común. Una característica de la que se puede servir el lector a 
la hora de desarrollar programas para sus juegos de mesa favoritos. 

En primer lugar observe este diagrama. Es un tablero de ajedrez 
numerado de modo que el ordenador lo puede manejar con facilidad. 


2 3 4 5sS5S657 8 
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Puede indicarle cualquier casilla del tablero refiriéndose a uno de 
los números situados en el margen izquierdo de éste (como el 3) y 
después a uno de los situados en la parte superior (como el 4). En este 
caso, la línea numerada 3 (partiendo de los números situados a la 
izquierda del tablero) y la línea numerada 4 (partiendo de los números 
situados en la parte superior) se encuentran en la casilla 34. Si quiere 
mover una ficha, puede hacerlo introduciendo el número de la casilla 
desde la que hace el movimiento (pongamos la 55) y después el núme- 
ro de la casilla hacia la que se mueve (pongamos la 66), el ordenador 
entenderá perfectamente lo que está haciendo. No es necesario cam- 
biar los números introducidos por el jugador humano por otro conjun- 
to diferente con el fin de que el ordenador los interprete. 

Este es el primer secreto cuando se están escribiendo programas de 
juegos de mesa para jugar con el ordenador. El segundo es que un 
tablero de este tipo presenta otra gran ventaja frente a los que están 
simplemente numerados en orden de 1 a 64. Esta ventaja consiste en 
que con éste al mover una ficha en cualquier dirección —independien- 
temente de dónde se empiece— la diferencia entre las casillas es siem- 
pre la misma. 

Intentaré explicar este concepto ya que puede parecer un poco 
críptico. Si se avanza una casilla hacia arriba y hacia la derecha —co- 
mo la jugada de una ficha de ajedrez— se moverá, por ejemplo, de 
la 24 a la 35, o de la 53 a la 64, o de la 71 a la 82. Pero observe que, 
independienemente de cuál sea su posición en el tablero, la diferencia 
entre la casilla de origen y la casilla a la que se mueve es siempre 11. 
Si avanza en diagonal hacia la izquierda, se moverá, por ejemplo, de 
la 26 a la 35 (más 9), o de la 66 a la 75 (también más 9) o de la 22 a la 
31 (otra vez más 9). 

Esta previsibilidad hace que sea relativamente sencillo crear un 
tablero que el ordenador sea capaz de manejar. 


COMO JUEGA EL ORDENADOR 


Imagine que el ordenador tiene una ficha en la casilla 24. Podría 
programarse para que compruebe todas las casillas del tablero y cada 
vez que encuentre alguna de sus fichas verifique si hay una ficha del 
jugador humano en una casilla con el mismo número que la casilla en 
la que él tiene su ficha (es decir, el 24 en este caso), más 11 (es decir, 
en la 35); y que compruebe además si la casilla 46 (es decir, 35 más 11) 
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está vacía. Si todas estas condiciones se cumplen, el ordenador puede 
mover su ficha de la casilla 35 a la 46 comiéndose así la ficha del 
jugador humano que ocupa la casilla 35. 

Así es, en esencia, cómo funcionan la mayoría de los juegos de 
mesa en el ordenador —de las damas al ajedrez, pasando por el Othe- 
llo— basados en una sencilla cuadrícula de 8 por 8 numerada de la 
manera que hemos visto. 

Si fuera usted a escribir un programa de ajedrez basado en este 
tablero (como, de hecho, lo está el que veremos a continuación), 
podría especificar las jugadas del caballo, por ejemplo, al saber que 
éste siempre puede avanzar a las casillas que están, a partir de lá que 
ocupa en ese momento el caballo, a la siguiente «distancia numérica»: 


21 12, =8 =19 ¿ll <IZ 19 8 


Inténtelo usted ahora. Poniendo una moneda en la casilla número 
55 y moviéndola como si se tratara del caballo, calcule la relación 
matemática entre la casilla de partida y la casilla a la que va a avanzar. 
Verá cómo las diferencias son las mismas que las señaladas más arriba. 

Los programas de este capítulo, y los de muchos otros capítulos del 
libro, fueron escritos siguiendo un esquema «de arriba a abajo» en un 
intento de que salieran unos programas estructurados y relativamente 
fáciles de seguir y modificar. Muchos de los programas los escribí 
introduciendo al principio el siguiente «código puro»: 


10 REM NOMBRE DEL JUEGO 

20 GOSUB 9000: REM INICIALIZACION 

30 GOSUB 8000: REM DIBUJO DEL TABLERO 

40 GOSUB 1000: REM JUGADA DEL ORDENADOR 

50 GOSUB 8000: REM DIBUJO DEL TABLERO 

60 GOSUB 7000: REM JUGADA DEL HUMANO 

70 Comprobación de si el ordenador o el humano han ganado, en 
ese caso, final del juego. 

80 GOTO 30 


En casi todos los casos tenía ya escrita esta estructura antes de 
tener la menor idea de cómo iba a alcanzar las metas que yo mismo 
me había marcado para cada una de las subrutinas. 

Todos los programas fueron escritos primeramente en papel antes 
de poner un dedo en el ordenador, de modo que se podía «ejecutar a 


mano» una versión del juego antes de empezar a vérselas propiamente 
con éste en el ordenador. De este modo se pueden detectar y corregir 
justo al principio los peores errores. 


Recomiendo fervientemente al lector que siga un procedimiento 
similar. Yo mismo había leído este consejo en varios artículos y libros 
y, como se puede suponer, lo había pasado por alto hasta que en una 
ocasión, pasando unos días de vacaciones en Gales, a kilómetros de 
distancia del ordenador más próximo, me entraron unas ganas locas de 
escribir un programa de ajedrez. El programa que aparece en este 
libro está basado en aquel programa original, ideado durante mis 
largos paseos por la playa en compañía de mi perro y puesto por 
escrito en una granjita alquilada de la costa galesa. 


Entre las muchas ventajas que descubrí al programar primero en 
papel, hay una fundamental que es lo poco que te importa deshacerte 
de bloques completos de código si te das cuenta de que no funcionan. 
Es mucho más difícil decidirse a borrar una sección completa de códi- 
go de un programa una vez que éste ya está introducido en el ordena- 
dor, de lo que puede serlo el hacer trocitos una hoja de papel y 
tirarlos a la papelera. La tentación que le suele asaltar a uno —cuando 
las líneas del programa ya están en el ordenador— es la de juguetear 
con ellas intentando que funcione, aunque no sea exactamente como 
se esperaba. 


El trabajar primero en papel tiende, pues, a evitar el tener que 
andar haciendo un remiendo tras Otro para conseguir que funcione un 
código que, en realidad, no debería estar en ese programa. Por otro 
lado, el trabajar siguiendo un esquema estructurado, como el que he 
descrito, simplifica la labor, pues se sabe qué partes del programa rea- 
lizan cada tarea. En el esquema citado, yo sé, por ejemplo, que el 
tablero es impreso por la subrutina que empieza en la línea 8000. Así 
pues, si el tablero sale con un aspecto un poco extraño, ya sé inmedia- 
tamente en qué sección del código he de concentrarme. 

Además de ser de una gran ayuda en un primer momento a la hora 
de ejecutarlo, un programa estructurado invita a hacerle mejoras. Por 
ejemplo, suponga que ya cuenta con un programa de ajedrez propio y 
dispuesto para ser ejecutado. Si en algún momento quisiera volver 
sobre él para intentar mejorar su juego, le bastaría con sólo revisar la 
parte del código que cubre el juego del ordenador. No tendría que 
recorrer kilómetros de código calculando cuál es la función de cada 
línea y cuáles son las líneas que controlan el juego del ordenador. 


19 


20 


Los métodos que acabo de apuntar son los que yo he usado en esta 
parte del libro y en casi todas las demás. Puede ser instructivo echar 
un vistazo a algunos de los programas y calcular mediante los listados 
qué sección realiza cada tarea. Verá que en muchos programas he 
incluido líneas de asteriscos a modo de sentencias REM. Estos sepa- 
ran el programa en módulos independientes, lo cual supone una gran 
ayuda para seguirlo sin dificultad. 


AJEDREZ 


El ajedrez es uno de los grandes desafíos a los que puede enfren- 
tarse un programador de ordenadores. Analizar el modo en que los 
humanos juegan al ajedrez, desmenuzar posteriormente ese análisis en 
un número de ideas lo suficientemente claras como para poder traspa- 
sarlas a un programa es una tarea formidable. 

Este programa de ajedrez no pretende ser un intento particular- 
mente logrado de superar el desafío que acabo de describir. Aunque 
con este programa el ordenador jugará al ajedrez con una base razo- 
nablemente coherente, no se puede decir que juegue extraordinaria- 
mente bien y desde luego el intentar vencerlo no supone un desafío 
real. ¿Por qué lo he incluido, entonces, en este libro junto a otros 
juegos en los cuales el ordenador se muestra prácticamente inven- 
cible? 

La razón de incluirlo ha sido precisamente el hecho de que el 
ajedrez cuente con innumerables atractivos para los programadores de 
ordenador. Muy pocos programas de ajedrez se han publicado hasta el 
momento (conozco uno que apareció en el número de diciembre de 
1981, de la revista Creative Computing, bajo el título de «Chess C.4» y 
cuyo autor era Michael Rakaska; dos más que aparecieron en libros; y 
el listado del Sargon II), lo que demuestra la dificultad que entraña la 
producción de un programa de este tipo. Me pareció que la propia 
escasez de programas de ajedrez publicados era un argumento de peso 
en favor de incluir éste. 

Durante cientos de años la mente humana no ha dejado de acariciar 
la posibilidad de crear una máquina que fuera capaz de jugar al aje- 
drez frente a un contrincante humano. En el último tercio del siglo 
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XVII el Barón von Kempelen construyó un autómata jugador de aje- 
drez con el que hizo su primera exhibición en Viena en el año 1770 
ante la familia real; la Europa de la época quedaría totalmente fasci- 
nada con esta idea. Lamentablemente, la máquina era poco más que 
un elaborado truco de malabarista, con un hombre, que operaba el 
mecanismo de juego, oculto en un compartimento. No obstante, el 
engaño estaba bien logrado y un examen detenido de las jugadas 
muestra que el hombre que se arrebujaba dentro del mecanismo sabía 
lo que se hacía. En cierta ocasión en la que investigaba yo la historia 
del juego en el Museo Británico, fui a dar con un libro del siglo 
pasado, 50 Games Played by the Chess Automaton, que algún lector 
aplicado había ido anotando en los márgenes, y me quedé sorprendido 
al comprobar que los comentarios más severos —del tipo de «esta 
jugada sólo la haría un principiante»— estaban siempre dirigidos al 
jugador humano y nunca a la máquina. 

Pero a pesar de su fama, la máquina, en realidad, no jugaba al 
ajedrez. El primer intento real de un mecanismo que jugara una parti- 
da completa de ajedrez (diferente de las máquinas que se construye- 
ron a principios de siglo) data de 1949, cuando el 9 de marzo de ese 
año Claude Shannon, un investigador de los Bell Telephone Laborato- 
ries, presentó un trabajo llamado Programming a Computer for 
Playing Chess en un congreso en Nueva York. 

Como muy bien subraya David Levy en su fascinante libro Chess 
and Computers (Computer Science Press, Inc., Potomac, Maryland, 
1976), la importancia real del trabajo de Shannon radica, no en el 
hecho de que fuera el primero, sino en el de que «muchas de las ideas 
originales de Shannon pueden verse todavía en los programas que se 
realizan hoy». 

Shannon decía en su trabajo que el número de jugadas posibles en 
una partida de 40 jugadas se aproximaba a 10 elevado a la cientovein- 
teava potencia, un número que pertenece al mismo orden que los 
átomos en el universo. Está claro que cualquier programa que intenta- 
ra evaluar todas esas jugadas se extendería durante un largo tiempo 
(pongamos diez años elevados a la nonanteava potencia) antes de que 
el primer peón del rey hiciera una incursión hacia el centro. 

El hacer que este programa pudiera jugar, y conseguir que lo 
hiciera razonablemente rápido, exigía, como estoy seguro de que el 
lector habrá apreciado, cierto número de compromisos. Cambié la 
evaluación en profundidad por ciertas ideas que si bien no eran más 
que aproximativas, al menos eran ingeniosas (como el programar el or- 


denador para que moviera las fichas de tal modo que dominara el 
tablero el mayor tiempo posible; desplegar los caballos lo antes posi- 
ble; comer con los peones, independientemente del hecho de que el 
peón se enfrentara a una captura inmediata, cuando fuera posible; 
mantener el rey lo más inmóvil posible, al menos durante los primeros 
momentos del juego, cuando parece que tendría sentido hacer una 
cobarde aproximación; y dotar a las fichas que cuentan con más movi- 
lidad —como la reina— de un mecanismo de toma de decisiones equi- 
librado aleatoriamente que asegurara que no iba a dar un salto hasta 
el otro lado del tablero cada vez que pudiera hacerlo). 

En la composición del programa seguí una estructura clara y preci- 
sa; una estructura que garantizara que el juego del ordenador fuera lo 
más rápido posible. En realidad, esta estructura no resultó tan trans- 
parente como yo había esperado cuando escribí el programa. El gran 
número y la complejidad de las exigencias que el juego demandaba al 
ordenador cuando conseguí ejecutar el programa, significaba que mis 
planes de producir un programa claramente estructurado habían fraca- 
sado en cierto modo. Sin embargo, el programa juega extremadamen- 
te rápido y si no lo hace del todo bien, al menos es ocurrente y no 
dejará de divertir y de exasperar a sus contrincantes. 

Al final del listado hay una sección en la que se le indica la manera 
de modificar el programa para que juegue contra sí mismo. La demos- 
tración de este programa es fascinante y estoy seguro de que no dejará 
de atraer la atención, especialmente en el caso de aquellos que se 
consideran expertos en el juego. 

La variación de «auto-ajedrez» hace uso de la opción del intercam- 
bio de lados durante el juego; el cambio se realiza después de cada 
jugada. Cuando uno haga intercambio de lados, como puede hacerlo 
el lector si cree que al ordenador le vendría bien una ayudita, le dará a 
éste el lado en el que estaba jugando él; las fichas se intercambian 
como si estuvieran reflejadas en un espejo situado en el centro del 
tablero. Es decir, una reina al cambiarse de lado termina en la casilla 
coloreada correcta, y así sucesivamente. Pruebe a cambiar de lado 
varias veces durante el juego y verá cómo la operación de este mecanis- 
mo es bastante sencilla. 

Unas palabras más antes de pasar a nuestro programa de demos- 
tración. Es preciso vigilar el computador para asegurarse de que no 
hace trampas. En realidad es muy raro que las haga, pero (a no ser 
que su contrincante se sienta particularmente condescendiente y le dé 
igual) si, por ejemplo, se deja dar jaque, el contrincante ha de tomarlo 
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como un signo de que el programa abandona. Asimismo, también se 
puede dar el caso de que el programa tenga dificultades para escaparse 
del jaque; en este caso, el contrincante podría mostrarse un poco más 
tolerante ya que normalmente el ordenador se las suele arreglar para 
hacerlo en la siguiente jugada. Por otro lado, el contrincante humano 
siempre puede considerar cualquiera de estos fallos como un reconoci- 
miento de la superioridad de su juego. 

Antes del listado del programa, me gustaría que el lector observara 
estas jugadas de una partida jugada por el ordenador. 
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Y aquí tenemos el listado del juego del AJEDREZ: 


I 
10 REM Ajedrez 
20 GOSUE 2970 
| 20 GOTO 60 
240 GOSUE 2380 
30 GOSUB 2820 
i 60 GOSUE 2380 
O ] TO REM AA A DIM E E A al de 
80 1F A$ = "T" THEN END 
: 90 1 A$ = "1" THEN PRINT "INTERCAMETIAMOS LAS F 
| IEZAS UU GOSUE 33401 A4="" 
. 100 1F Aé= "C"THEN GOSUB 37730 
j 110 REM AA R  d  d A I 
120 FOR Z = 1 TO 16: F (2) = O: NEXT Z 
] 130 U x= 0 


O” 0 O. 9-20 


26 


O" EE <Q Y 


140 FRINT “UN MOMENTO, FOR FAVOR" 
150 FOR D= 1 TO 64: 1F M(S(D)) 2= AN AND M(5(D)) 
¿= TN THEN U = Y + 1:FOD = S(D:r:1F M(S(D)) = EN 
THEN SR = $5 (D) 
160 NEXT DIF UU x< 3 THEN GOTO 223o 
170 D=100:G0TO 630 
180 FOR D = 1 TO Ur 1F M(F(D)) = RN THEN F(D> 
FADIFAD = SR 
190 NEXT D 
200 D = INTCORND (AN) * 5) 
210 1F Aé= "J" THEN D = 0 
220 1 DU THEN D = Do+ 1 
230 Z = F(D)1GOSUE 280 
240 1F MM = 1THEN GÓSUB 2300:B60TO 40 
230 TF D< U THEN 220 
260 GOTO 2360 
ZTO EM A A 0 A A 
280 IF M(Z3=DN THEN GOSUE 910 
290 1F M(Z)=TN THEN GOSUB 1170 
200 1F M(Z3=AN THEN GOSUB 1420 
210 IF M(Z)3=CN THEN GOSUB 1490 
220 1F M(ZI=EFN THEN GOSUB 2240 
230 RETURN 
A AA 
2590 1F M(X) = 114 THEN MM = 01D = D + 15 RETURN 
260 1F XxX + 9 + 868 THENISO 
370 IF M(X+9) 2 85 AND M(X+9) + 64 AND END (AN) 
196 THEN RETURN 
380 IF X-11 < 11THEN 400 
290 IF M(X-11) 2 85 AND M(X-11) += 64 AND END CN) 
96 THEN RETURN 
400 AD = 0 
410 AY = 0 
420 AX = X + D(AY + AD) 
430 1F AX 2 11 OR AX + 68 THEN 460 
440 AF = MAX) 
430 TF AF = D OR AF = T AND RND(-=N) 2,8 OR AFRO <= 
A AND RNAD(-M 2 0.3 THEN RETURN 
460 AY = AY + 1 
470 1F AY 2 8 THEN 420 
480 AD = AD + 7 
490 IF AD 2 56 THEN 410 
300 AY = 1 
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310 
320 
e) 
340 
300 
360 
370 
380 


390 


AX = X + CCAY) 

IF AX 2 11 OR AX + 288 THEN 340 
IF MAX) = CC THEN RETURN 

AY = AY + 1 

IF AY 2 9 THEN 3510 


AX = X + RAY) 
IF AX 2 11 OR AX : 88 THEN £00 
TF (MAX) = R OR MAX) = F)AND RAND Cin 


THEN RETURN 


600 
610 
620 
630 
640 
630 
660 
670 
680 
6790 
700 
710 
720 
TEO 
740 
TO 
760 
770 


780 
790 
800 
810 
B2o 
8730 
840 
830 
860 
70 
880 
890 
900 
10 


AY = AY + 1 
IF AY 2 9 THEN 370 


MM = 1 

RETURN 

REM E IE A AM A A 
Zo z= GR 

Y = 0 

Y om Y + 1 

X= Z + C0(Y) 

TF XxX << 11 OR X * 88 THEN 600 


IF M(X) = € THEN 1870 
IF Y 2 8 THEN 670 
FRE DD 


Lo=>0 
Y o= 1 
X = Z + D(Y-+L.) 


IF XxX 2 11 OR X + 88 THEN 810 
TF M(X) = A.OR M(X) = D OR M(X) = To THEN 


IF M(X) ¿Vo THEN 810 
Y = Y + 1 

IF Y 2 8 THEN 730 

Ll = Lo + 7 

TF L 2 49 THEN 730 
X= Z + 11 


IF X 88 THEN 840 

IFE MOOD = FEF THEN 1870 

X= Z - 11 

IF X 2 11 THEN 180 

IF M(X) = FEF THEN 1870 

GOTO 180 

REA MI EE REE A A 
L=0 


187 


O. LE “O .0 


2 00 O O "0.0. 70 -O O 4.0 


E O SE 3: 


PRO 
OO 
940 
90 


Y o a 

Xx = Z + D(Y+L) 

IF XxX 2 11 OR X + 88 THEN 1000 

IF M(X) = 42 OR M(X) 3= AN AND M(X> 


EN 1000 


eo 


MM <> 
970 


280 

390 
1000 
1010 
1020 
1030 
1040 
10590 
1060 
1070 
1080 
1090 


MN GOTO 


11060 
1110 
11:00 
1130 
1140 
1130 
1160 
1170 
1180 
1190 
1200 
1210 


EN 16% 


12xÓ 


1260 
1270 
1280 


1270 


TF MX) += A AND M(X) <= To THEN 560SUE 


1 THEN 1000 
IF MM o = 1 THEN RETURN 
Y = Y + 1 
IF Y 2 7 THEN 230 
Lo =Lo+ 7 
TF L 2 42 THEN 2920 
RETURN 
A 
E =D 


+ D(Y+L.) 

IF. XxX 2 11 OR X > 88 THEN 1130 

IF M(X) ¿3 Vo THEN 1130 

TF END CN) 
1130 

IF MM <= 1 THEN RETURN 

Y = Y + 1 

IE Y 2 8 THEN GOTO 1060 

Lo = Ll + 7 

TF LL 2 48 THEN 1050 

RETIJREN 

ELE HI E A E A MD E A DE E 

LO 

Yo 1 

X = Z + T(Ye+L) 

TF. XxX 2 11 OR X + 88 THEN 1266 

TF M(X) = 42 OR M(X) : AN AND MC(X) 

O 


IF O M(X) 2= A AND M() ¿<= To OTHEN GOSLIE 


O THEN GOTO 1260 

TE MM o = 1 THEN RETURN 
Y om Y + 1 

TE Y 2 7 THEN 1190 

A E 
1 O E 
RETURN 
AA 


THEN 1180 


3 THEN GOSUE 3301, 1F MM <= 


TN TH 


2501 IF 


O THE 


TN TH 


oO 1F 


O. Ur De O E O O O O O O 


O 


O 


O. 0 


29 


30 


TE 


1300 L = 0 

1310 Y. = 1 

1320 X = Z + T(Y+L) 

13ZO 1F X 2 11 OR X 2: 88 THEN 1390 
1340 1F M(X) <3 Y THEN 1390 

1330 IF RND(=NM> < ,1 THEN GOSUE 330 
1360 1F MM = 1 THEN RETURN 

1370 Y = Y + 1 

1380 1F Y < 7 THEN 13:20 

1390 L = L + 7 

1400 1F L < 21 THEN 1310 

1410 RETURN 
1420 1F M(Z) 
1430 Lo = 0 
1440 Y = 1 
1430 Xx = Z + ACY+L) 

1460 1F XxX 2 11 OR X + 88 THEN 1320 

1470 1F MOO = 42 OR MO = AN AND M(X) <= TN TH 


22 AN THEN RETURN 


EN 1320 
1480 1 MOO == A AND M0) <= T THEN GOSUB 350% IF 


MM 23 ATHEN 1520 

1490 TF PM o = 3 THEN RETURN 

13500 Y = Y + 1 

1510 IF Y 2 7 THEN 1450 

13020 Ll = Ll, + 7 

1530 IF L 2 21 THEN 1440 

1340 RETURN 

1550 REP DE DE EF E IE al dE E 

13560 Ll = 0 

13970 Y = 1 

13580 X = Z + A(Y+L) 

13590 IF XxX 2 11 OR X + 88 THEN 14650 

1600 1F MOO 2 Y THEN 14350 

10610 IF END(GN 2 .05 THEN GOSUB 2330: IF MM 2 1 T 
HEN 1630 

1620 1F MM <= 1 
16030 Y = Y + 1 
16440 IF Y 2 7 THEN 1380 

1030 Ll = L + 7 

1660 IF L << 21 THEN 1570 

1670 RETURN 

1680 - REMAIN R AE  DE  A E 
1690 Y := 1 


THEN RETURN 


O.» O 07 0 


70 20. “07, Q “Gr CO E E 


Y = O 0 


1700 
1710 
17ZO 
1730 
1740 
17300 
1760 
1770 
1720 
1790 
1800 
1810 
1820 
18730 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
2200 
1920 
1930 
1940 
1930 
1960 
1970 
1980 
192990 
2000 
2010 
2OZO 
ZOO 
2040 


20530 


2060 
2O7O 
2080 
2090 
2100 


X= Z + 0(V) 
IF Xx 11 OR X > 68 THEN 1750 
IF OM(X) = 42 THEN 1750 


TF M(X) <= A AND M() <= T THEN GOSUE 


TF MM o := 1 THEN RETURN 
Y oz Y + ] 
IF Y2 9 THEN 1700 
RETURN 
EEE EEE EEE 
Y = 0 
Xo= 7 + CCUINTORND(=N) * 8 + 1)) 
IF Xx<3 11 OR X > 88 THEN 1800 
42 THEN 1800 


V THEN GOSUB 350 
OR Y > 20 THEN RETURN 


Lea] 
T 
Zz 
pa 
x 
= 
na mn 


YR = 1 


+ R(YR)1X1 = X 
IF xX23 11 OR X >* 88 THEN 2200 
TF M(X) = 42 OR M(X) * 64 AND M(X) 


TF M(X) > 96 AND M(X) 
Z X 

Y 8] 

Y Y +1 

X L + Y) 

IF XxX 2% 11 OR X > 88 THEN 1990 

IF M(X) = CC THEN 2200 

IF Y 2 8 THEN 1950 

ERE A 0 DE DE E E E DEE E AE E 


do yo 4 


Nr” 


+ D(Y+L) 
IF Xx < 11 OR X£ + 88 THEN 2090 
TF M(X) = A OR M(X) = D OR M(X) = 


IE M(X) <2 Y THEN 2070 
Y = Y + 1 

IF Y 2 8 THEN 2020 

Lo= Lo+ 7 

IF L 2 49 THEN 2030 


e 
Hi 


117 THEN 2200 


T THEN 


e 


83 THEN 
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2110 X = Z + 11 
2120 TF X 88 THEN 2140 
2130 1F MOO = F THEN 2200 
2140 X = Z — 11 
2150 1 XxX 2 11 THEN 2170 
2160 TF MO) = F THEN 2200 
2170 X = X114Z = SK 
2180 MM = 1 
2190 GOSUE 235006: G0TO 40 
2200 YR = YR + 1 
Ll = GR 
IFE YR 2 9 THEN 1880 
FRINT" ME RINDO, CAMFEON!! CU: END 
X= Z + 9 
TE MOO == A AND MOON ¿= T THEN MM <= 11: T1F M( 
XxX) = EF AND EKNAD(G=N) 2 2 THEN MM o = 0 
AA 1 MM <= 1 THEN RETURN 
2a0n7o 1 Z = 12 THEN RETURN 
2280 X = Z “ 11 
229% TF M0) == A AND MOO <= To THEN MM o: 12 1F M( 
XxX) = E AND RND(=NM) 2 2 THEN MM = 6 
2300 RETURN 
A 
SRS0O TE Z - 10 * C(INT(Z/10)) = 7 AND M(Z-1) == VA 
ND MtZ-2) = Y AND (MO0Z-13%) = Y OR M(2=13%) = 42) (AN 
D (MOZA) == YO OR M(Z+7) 33 42) THEN X 3 Z + QiMM o 
LI RETUREN 
SEO IF M(Z-1) = V AND M(Z2-12)3 2 97 AND M(Z+5) 
97 THEN X := Z - 1£MM = 1¿RETURN 
2340 TF END(-=N) 2 1,058 AND MZ) = Yo THEN X o = Zo 
LiMM == 1 
AO RETURN 
260 D = INT(RNDO-N) * END(-=N) * 5D:21F D = UU THEN 
SOTO 2360 
2270 1F DU THEN D = D + 1 
20 Z = F(D) 
2390 IF M(Z) 
2400 1F M0Z) 
2410 IF M(Z) 


PN THEN GOSUB 2320 

CN THEN GOSUB 1790 

AN THEN GOSUB 1360 

SAZO 1F MCZ) TN THEN GOSUBE 1300 

Z24AZO TF M(Z) DN THEN GOSUE 1040 

2440 1F M(Z) = RN AND A$ < "J" AND END(=M) 2 07 
THEN GOSUE 1870 


444404 
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2430 IFMM = O AND D < U THEN GOTO 2370 
2460 IF MM = 1 THEN GOSUB 2300:G0TO 40 
2470 UE = UK + 1: 1F UE + 8 THEN 2230 
2480 GOTO 22360 

DADO REA ll A 


2300 1F M(Z) = RN AND Ass "J" AND RND (NN): 


EN MM += Q0:GOTO 2360 


% 
> 


2310 IF M(Z) = FN AND ((X - 10 * INT(X / 10) 


10 * INT(Z / 10) OR ABS(X - Z) * 112) 


¿UU = UU + 1:GOTO 230 

23920 IF M(X) = R THEN FRINT " JAQUE": MM 
+ 1:G60T0 23 

LO MO) = MOZA M(Z) = Y 


3 


2340 PRINT "YO MUEVO DESDE "5 


THEN MM 


290 FZ = INT(Z / 10): FRINT CHRA$S(FZ + 64)33Z - 
FZ 4" A "pr FX = INT(X / 10)¿FRINT CHR$(FX + 64) 


X - 10 * FX:FOR O = 1 TO 1000: NEXT 0 
23600 RETURN 

AA TAME 
2380 CLS 

2390 GOSUB 2470 

2600 FOR X = 8 TO 1 STEF-1 

2610 PRINT TAB(10)51X53" "5 

2620 FOR Y = 10 TO 80 STEP 10 

2630 IF M(Y+1) = FN THEN M(Y+1)3 = DN 
2640 1F M(Y+8) = F THEN M(Y+8) = D 
26350 PRINT CHR$(M(X+Y37350 05 

2660 NEXT YÍPRINT X¿NEXT XiMM = 0 


. a 


» 


> 


Z 


10 


2670 PRINT:¡PRINT TAB(143:"A BCDEFG H":FRINT 


DEBO REM dE A A A 

2690 RETURN 

2700 Z = GR 

2710 0K = Q 

2720 M= Z + ROQK) 

2730 1F Mx 11 OR M >: 88 THEN 2780 
2740 1F M(M) = 42 OR M(M) > 64 AND M(M) 
= O THEN 2780 

2730 X = M 

2760 SR = Z 

277% RETURN 

2780 1F QK < 8 THEN 27320 

2790 1F Aé <5 "J" THEN RETURN 

2800 GOTO 2230 
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A 

2820 FRINT 

2830 INPUT "DESDE (LETRA, NUMERO) "3 

2840 IF LEN(AS) ¿2 2 THEN 2820 

28390 INFUT "HASTA"3Bs8 

2860 IF LEN(B$) <2 2 THEN 2830 

2870 X = 10* (ASC(A$) — 64) + VAL (RIGHTS (4%, 1) 
2880 Y = 10x* (ASC(BS$) - 64) + VAL (RIGHTS (8, 13) 
2890 FRINT "Seleccione para dar Jaque" 


2900 FRINT " o para Copia por impreso 
ra" 

2210 PRINT " 1 para Intercambiar lado 
5" 

ezo PRINT O" T para Terminar *l juego 


2930 INFUT "0 bien RETURN para continuar "34% 

2940 1F MN). = 635 AND M(M) <= E4 AND MM) 2 67 
THEN GOSUB 3660 

ZOO M(M) = MOQiM(0X) = 46: RETURN 

A A 

2970 ELSiFRINT "FOR FAVOR, FONGA EL TECLADO EN MAY 
USCULAS'GPRINTUY A CONTINUACION FULSE RETURN" 

2980 N=N+1 IF. INKEY$="" THENZ2280 

2990 RANDOMIZE: COLS: FPRINTUUN MOMENTO, FOR FAVOR" 
3000 DEFINT A — 2 

SQ10 MM. = Q1A8s = "0 

SOZo DIM MP, TOEL ARE OIEA LRD, Z (DD), 
S (64), F 014) 

030 Fo 11217 = 110614 = 9710 = 97D = 1001K = 11 
GV = 46 


3040 FN = S80: TN = S4t:AN = 63:ÓN = 671DN = AB:iRN = 


82 

7050 FOR Z = 1 TO 991M(Z) = -99NEXT 2 
ZHO0BO REMAIN dE 
3070 FOR Z = 1 TO 64:READ X¿READ YiIMOO = Yi NEXT 
Z 

7080 DATA 18,84,28,67,38,65,48,68 

7090 DATA 58,82,68,65,78,67,88,24 

7100 DATA 17,80,27,80,37,80,47,80 

3110 DATA 57,80,67,80,77,80,87,80 

7120 DATA 16,46,26,46,76,46,46,46 

3170 DATA 56,46,66,46,76,46,26,46 

7140 DATA 15,46,25,46,35,46,45,46 


OQ 


Go O: 0. E A 0 


o. oO Oo. O 


O 


O 


2. <= E Y 


3150 
2160 
2170 
2180 
2190 
200 


md 
AO 
le 
3260 
3270 
ALO 
2290 


A3IOO 


PA] 


3400 
3410 
SAZO 
3430 
2440 
24350 
3460 
3470 
3480 
3490 
3500 
2510 
3520 
SO 
25340 


ad 0 


dd O 
2070 


DATA 55,46,65,46,75, 46,85, 46 
DATA 14,46,24,46,34,46,44,46 
DATA 54,46,64,46,74,46,84,46 
DATA 13,46,23,44,33,46,43,46 
DATA 53,46,63,46,773,46,83,46 
DATA 12,112,22,112,32,112,42,112 
DATA 52,112,62,112,72,112,82,112 
DATA 11,116,21,99,31,97,41,100 
DATA 51,114,61,97,71,99,81,114 
ELE e A A A A A A 
RESTORE 3270 

FOR Z = 1 TO B:READ C(Z):NEXT Z 
DATA 19,-19,21,-21,-8,8,12,-12 
FOR Z = 1 TO 28:READ T(Z):¿NEXT Z 
DATA 10,20,730,40,50,30,50 

DATA -1,-2,-3,-4,-5,-5,-5 

DATA -10,-20,-30,-40,-50,-50, 50 
DATA 1,2,3,4,5,5,5 

RESTORE 3350 

FOR Z = 1 TO 28:READ A(Z):NEXT Z 
DATA -11,-22,-33,-44,-55,-55,-55 
DATA 11,22,33,44,55,55,55 

DATA 9,18,27,76, 45, 45, 45 

DATA -9,-18,-27,-36,-45,-45,-45 
RESTORE 3290 

FOR Z = 1 TO S6: READ D(Z):*NEXT Z 
FOR Z = 1 TO B:READ R(Z): NEXT Z 
DATA 1,11,9,10,-10,-9,-11,-1 

FOR 7 = 1 TO 64:READ S(Z): NEXT Z 
DATA 46,56,36,66,47,57,45,55 
DATA 37,67,35,65,28,78,27,77 
DATA 44,54,26,74,38,68,17,87 
DATA 18,88,34,64,25,75,16,86 
DATA 48,24,74,15,85,14,84,47 
DATA 53,33,62,23,73,52,42,62 
DATA 32,83,13,72,22,12,82,41 
DATA 51,31,61,21,71,11,81,58 
CLS: RETURN 

RE MARA e AI EEE EE ld e de 


FOR 72 = 11 TO 88:Z(Z) = M(Z):¿NEXT Z 
= 11 TO 88:X = Z - 10 * INT(Z/10) 


FOR 2 
TF X= 0 OR X= 9 THEN 2580 
MZ) = Z(Z + 9 - X + 2) 


O O DO O O O 


O. 0 0 y 


O 


O 


35 


l 2580 NEXT Z 
3590 FOR Z = 11 TO 88:M = M(Z) 

3600 1F OM A THEN M(Z) = M(Z) + FN - FE 

o 3610 IF Mz TN AND M o= AN THEN M(Z) = M(Z) - EN 
| 

| 

| 


O 


ñ 


SO NEXT Z 
630 GOSUE 2380 
O 2040 RETURN 
TN E E A 
3660 MC = INT(RND(=N) * 4) + 1 
3670 ON ME GOSUB 3490, 3700,3710,3720 
2680 FOR J = 1 TO 1000¿NEXT JiRETURN 
1. 3464970 FRINT "BIEN HECHO! "a RETURN 
E 700 PRINT "BUEN MOVIMIENTO" 4 RETURN 
1.3710 FRINT "EIEN MOVIDA, CAMFEON! "4 RETURN 
3720 EFRINT "ME DEJAS ASOMBRADA. 4 CG RETURN 
O LO E7TEO LERINT O "rr e MI A DAI 
l 
| 
| 
| 
| 
| 
| 
l 
l 
1 
] 
1 
| 
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2740 GOSUB 2800 

3730 FOR X* = 8 TO 1 STEF 1 

3760 LERINT TAB X10 03 

2770 FOR Y = 10 TO 80 STEF 10 

2780 LERINT CHAS (M(0X + Y)33" "5 

37790 NEXT YiLEPRINT X5¿NEXT X 

5800 LERINTILFRINT TAB(9)33"A BCDEFG HLERIN 


O 


2010 RETURN 


Si quieres que el ordenador juegue consigo mismo, cambia la línea 
2580 de la siguiente manera: 


2580 CLS:PRINT “Jugador””PR'en la parte alta” 
y cambia las primeras diez líneas del programa de esta otra manera: 


15 PR = 1 

20 GOSUB 2970 

30 GOTO 60 

40 GOSUB 2580 

SO AS = “X” 

60 IF PR = 2 THEN PR = 1: GOTO 80 
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“S” THEN END 

“XxX” THEN PRINT “INTERCAMBIAMOS LAS 
PIEZAS””: GOSUB 3540:A$ =>” 

100 IF PR = 2 THEN GOSUB 3730 


Si deseas que el programa te vaya dando por la impresora informa- 
ción acerca del desarrollo del juego, añade las siguientes líneas: 


3730 IF RND >.08 THEN RETURN 


3735 LPRINT dd old od od de do o o o 


3740 GOSUB 3800 


COMO FUNCIONA EL PROGRAMA 


Vamos a echar ahora un vistazo a algunas de las partes de este 
programa con el fin de que el lector sepa con cuáles se ha de meter en 
primer lugar en el caso de que se decida a modificar el programa para 
mejorar su juego. 

Como ya explicaba en la introducción a este capítulo, el programa 
empieza con una serie de llamadas de subrutina que se irán repitiendo 
cíclicamente según avanza el programa. Después de la primera senten- 
cia REM que identifica el programa, el ordenador pasa a la subrutina, 
que empieza en la línea 2970, que inicializa las variables. Posteriormen- 
te, la línea 30 salta a la 60 que llama a la subrutina de impresión del 
tablero en la línea 2580. Esta rutina, como el resto de las rutinas de 
impresión del tablero de esta parte, empieza con una orden de borrar 
la pantalla (CLS). Si se dispone de una clave HOME o similar (como 
PRINTO,O0,PRINT AT 0, o LOCATE 1,1), se ha deponer ésta en lugar 
de la CLS. Con esto el tablero se imprimirá simplemente sobre su 


antigua imagen lo que da la impresión, efectista por demás, de que las 
fichas se mueven. Esto es mucho más satisfactorio que borrar la panta- 
lla cada vez que haya que imprimir el tablero. 

Después de imprimir el tablero, el programa continúa hasta pasar 
la línea 60 con la sección de jugadas del ordenador. En primer lugar, 
éste comprueba la situación de A$, que es una serie que fija el jugador 
humano después de cada jugada. Si A$ es igual que '*T”, en ese caso 
el jugador humano ha señalado un deseo de abandonar la partida y el 


37 


38 


programa finaliza. Si A$ ha sido ajustado en**I” (para intercambio) el 
programa continúa con la subrutina que empieza en la línea 3540 para 
intercambiar lados. Si A$ es igual que “*C””, el ordenador avanza si- 
guiendo la subrutina que comienza en la línea 3730 para sacarnos una 
copia del tablero por la impresora. 

Es ahora cuando empieza en serio el juego del ordenador. En primer 
lugar, la matriz F (que será la que contenga la posición de las fichas 
del ordenador) se completa con ceros y la variable que cuenta las 
fichas (U) se ajusta a cero. El bucle de las líneas 150 y 160 atraviesa 
cada casilla del tablero contando las fichas (y cada vez que encuentra 
una, U va aumentando y almacenando su localización en los elemen- 
tos de la matriz F). Cuando encuentra el rey (variable RN, de «rey 
negro») se ajusta igual a éste la variable SR (de «señalador rey») de 
modo que el ordenador sabe en todo momento dónde está su rey. Si U 
no pasa de tres (línea 160), el ordenador irá hasta la línea 2230 y se 
dará por vencido. Este no cuenta con una estrategia de fin de partida y 
tiende a enredarse si no tiene suficientes fichas. 

La línea 170 hace saltar la acción hasta la 650 donde una larga 
rutina verifica si le pueden dar jaque al rey. En esta parte del progra- 
ma cada sección del código comprueba el peligro que supone en parti- 
cular cada ficha del contrincante. La primera parte, desde la línea 650 a 
la 710 verifica el peligro por parte de los caballos del jugador humano, 
mientras las siguientes (730 a 890) vigilan a la reina, los alfiles, las 
torres y los peones. Si no encuentra ningún peligro, de modo que la 
corriente del programa no es reencauzada por los numerosos GOTOS 
de esta sección, la línea 890 retrotrae el programa a la 180 en. donde 
empieza a buscar jugada. 

Las líneas 180 y 190 reordenan los contenidos de la matriz F de 
modo que el rey sea la última ficha de esta matriz. En general, el 
ordenador intentará mover sus fichas en términos de su posición en 
esta matriz, así pues, como el rey está al final, sólo lo moverá si 
considera que no hay otra jugada que merezca la pena. Como dije con 
antelación al listado, esta es una de aquellas ideas simplemente aproxi- 
mativas, pero ingeniosas, con respecto al ajedrez y está basada en el 
principio de que cuanto menos se mueva al rey, menos ocasiones de 
peligro correrá éste. Por supuesto, esto no siempre es cierto. No obs- 
tante, para el tipo de ajedrez que juega el programa no es del todo 
irracional el partir de este principio y desde luego, es menos peligroso 
que la alternativa de tener al rey alrededor del tablero exponiéndose 
a cada jugada. 


Seguidamente se ajusta D en 0, 1, ó 2 hacia la línea 210 y se vuelve 
a ajustar en O en la línea 210 si el jugador humano ha señalado *“J” 
para «jaque». D determina en qué punto de la matriz F empezará a 
buscar su jugada el ordenador. Se introduce aquí el elemento aleatorio 
de forma que el ordenador no siempre hará lo mismo si se le confronta 
a dos situaciones de tablero similares. Se añade uno a D si D es menor 
que U (es decir, menor que el número total de fichas que el ordenador 
tiene sobre el tablero) y después Z se ajusta igual que ese elemento de 
la matriz T que es la posición de la ficha del ordenador en el tablero. 

Tras esto, se llama a la subrutina que comienza en la línea 280. Si 
se fija en esta subrutina, se dará cuenta de que las líneas 280 a 320 
determinan de qué ficha se está ocupando. El ordenador juega con las 
negras y para facilitar la tarea de seguir lo que está sucediendo en el 
listado se utiliza DN para indicar la reina («dama negra»), TN es la 
torre, AN el alfil, CN el caballo y PN el peón. Así, el ordenador en 
esta pequeña subrutina lo único que hace es descubrir qué ficha tiene 
entre manos dirigiéndose posteriormente a una subrutina más impor- 
tante que es la de comprobar si esta ficha puede comer alguna de su 
contrincante. 

A estas alturas, seguro que el lector ya se ha hecho una idea de 
cómo funciona el programa. Lo que esencialmente hace es localizar 
sus fichas. Si no le pueden dar jaque, pone las fichas en el orden que 
le dicta la disposición del tablero (esto lo explicaré cuando lleguemos 
al final del listado del programa) con el rey al final de esta lista y 
después va comprobando ficha por ficha el modo de comer a su con- 
trincante. 

La variable más importante (después de SR, el señalizador del rey) 
es MM (abreviación de «movimiento de la máquina»). Encontrará MM 
en la línea 240. MM se pone inicialmente a cero y sólo se ajusta a uno 
cuando el ordenador ha encontrado la jugada pasando así a la subru- 
tina que comienza en la línea 2500. Aquí comprueba que: a) la jugada 
pensada no consiste en mover su rey sin una causa justificada; b) no 
va a mover un peón tontamente, y C) que no está a punto de comer al 
rey del jugador humano. Cualquiera de estos tres casos provocarían 
que el señalizador MM tuviera que ser ajustado de nuevo en cero vol- 
viendo en ese caso la acción a la línea 230 para buscar otra jugada (si 
el ordenador considera que se da el caso c), imprime JAQUE y con- 
tinúa pensando su jugada). 

Si considera que no se encuentra en ninguno de estos tres casos, 
hace la jugada (la línea 2530 realiza los cambios necesarios en los 
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elementos de la matriz F, la matriz que de hecho contiene el tablero) y 
luego le indica al contrincante (usando las líneas 2540 y 2550) la juga- 
da que va a hacer volviendo posteriormente al inicio del programa en 
donde se vuelve a imprimir el tablero. 

Sin embargo, si MM no era igual a uno cuando el ordenador llegó 
a la línea 240, el ordenador seguirá avanzando hasta la 250, en donde 
la máquina comprueba si todavía le quedan fichas (de no quedarle, D 
sería igual a U) y si verifica que le quedan retrocede a la línea 220, en 
donde se aumenta uno a D y el proceso vuelve a empezar. Puede 
suceder, no obstante, que D sea igual a U,-en cuyo caso el ordenador 
decide que no puede hacer una jugada correcta yendo entonces a la 
línea 2360 en donde busca una jugada que no implique comer a su 
contrincante. La siguiente sección, como ya hemos comentado, envía 
la acción a varias partes del programa, cada una de las cuales contro- 
lan fichas diferentes. 

Si observamos la sección que comienza en la línea 2360, veremos 
que se inicia fijando D a un número aleatorio entre cero y cuatro. El 
uso de un RND doble asegura que tenderá a escoger, dentro de esa 
gama, números bajos mucho más a menudo que altos. Z se ajusta igual 
al elemento D* de la matriz F (como antes, cuando lo que buscaba era 
un modo de comer) y luego las líneas que van de la 2390 a la 2440 
envían el programa a las secciones de código que controlan sus movi- 
mientos. 

No nos detendremos en todas y cada una de las secciones que 
controlan los movimientos de las diferentes fichas porque todas ellas 
funcionan de un modo similar. Comprendiendo el principio básico de 
una se puede deducir fácilmente cómo funcionan las otras. 

Observaremos la sección que se encarga del juego del caballo, 
puesto que en la introducción a este capítulo ya hemos hecho algún 
comentario sobre cómo se mueven los caballos. Fíjese el lector en la 
sección del código que empieza en la línea 1790. Como se dará cuenta 
cuando nos detengamos en la sección de inicialización del programa, se 
establece una matriz para cada ficha, matriz que contiene las posibles 
jugadas de esa ficha (en términos de un desplazamiento numérico 
desde la casilla inicial). La matriz D contiene las posibles jugadas de la 
reina, la A las que puede hacer el alfil, etc. Así pues, sabemos que C, 
al que se refiere la línea 1800, contiene las jugadas del caballo. 

En esta línea la variable X se ajusta igual a Z (la casilla que ocupa 
la ficha) más un elemento (escogido aleatoriamente) de la matriz C. 
La línea 1810 verifica que el posible destino de la ficha no se encuen- 


tra fuera del tablero (lo que sería el caso si su valor fuera inferior a 11 
y superior a 88) o igual a 42 (lo que también querría decir que se 
encontraría fuera del tablero). Y es la variable que cuenta el número 
de jugadas potenciales intentadas. Se le aumenta uno en la línea 1830 
y luego el ordenador comprueba el valor que contiene en ese momen- 
to M(X), que es la casilla de destino. Si encuentra que contiene el 
valor V (de «vacío») sabe que puede mover a esa casilla. Pero no salta 
a lo loco hastal M(X) sólo porque¡es una casilla que está vacía. 

En primer lugar va a la subrutina que empieza en la línea 350 y 
comprueba si tal casilla se encuentra atacada por el contrincante. Al 
volver de ese destino comprueba (línea 1850) si MM es igual a uno. Si 
lo es, el ordenador sabe que la jugada que estaba considerando ha 
sido aprobada y con eso avanza hasta la sección de código que se 
encarga de hacer la jugada. Si Y es mayor de 20, lo que significa que 
se han intentado 20 jugadas sin resultado, en ese caso también dispara 
una vuelta de modo que vuelve a probar con una nueva ficha. Si 
encuentra que no se dan ninguna de estas dos condiciones, el ordena- 
dor regresa a la línea 1800 para conseguir una nueva jugada aleatoria 
del caballo. 

Así es, en esencia, cómo se generan y comprueban todas y cada 
una de las posibles jugadas. El caso del caballo es un poco más senci- 
llo, porque puede saltar sobre otras fichas. En los otros casos, el 
ordenador ha de comprobar que existe un paso abierto para que pue- 
da realizarse la jugada que se pretende, pero esto es fácil de con- 
seguir. 

Avanzando ahora hasta la sección del programa que empieza en la 
línea 2970, se dará cuenta el lector de que es en este punto donde 


tiene lugar la inicialización. En primer lugar el ordenador indica al 


jugador humano: '*PONGA EL TECLADO EN MAYUSCULAS Y 
A CONTINUACION PULSE RETURN”. El ordenador calcula el 
tiempo que lleva esta operación (usando N como contador) y usa este 
valor para inicializar el generador de números aleatorios. Como en 
todos los programas de este libro, en el caso de tratarse de un ordena- 
dor en el que la función RANDOMIZE no se lleva a cabo del mismo 
modo, el lector ha de cambiar la línea para adecuarla al dialecto 
BASIC que utilice. La línea 3000 asegura que todas las variables serán 
tratadas como variables de números enteros. Se ha hecho así para que 
la velocidad de ejecución sea la máxima, pero puede excluirse, sin que 
el programa quede alterado por ello, si el ordenador no dispone de 
DEFINT. MM (recuerde que es «movimiento de la máquina») se 
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ajusta en cero en la línea 3010 y A$ (que contiene los mensajes del 
jugador humano, tales como el deseo de cambiar de lado) se iguala a 
una cadena nula. 

Posteriormente se dimensionan un número determinado de matri- 
ces. M contiene el propio tablero, T las jugadas de la torre, A las del 
alfil, C las del caballo, D las de la reina, Z el mecanismo de cambio de 
lados, S la secuencia de prioridad que determina en qué orden se 
comprueban las casillas en busca de fichas, y F la localización de las 
fichas en el tablero antes de cada jugada. 

Las dos líneas que siguen inicializan, como se señala a continua- 
ción, las variables, que son las fichas del jugador humano y del or- 
denador: 


P — peón humano PN - peón del ordenador 
T — torre humana TN -— torre del ordenador 
C — caballo humano CN — caballo del ordenador 
A — alfil humano AN -— alfil del ordenador 

D — reina humana DN -— reina del ordenador 
R - rey humano E RN - rey del ordenador 


V -— casilla vacía 


Las dos líneas siguientes (3050) completan la matriz M (que con- 
tendrá el tablero) con un valor ficticio (—99). Esto asegura que toda 
casilla a la que no se le dé posteriormente un valor será ignorada a la 
hora de ejecutar el programa. Este programa usa un tablero numerado 
de modo similar al que se ha mostrado al inicio de este capítulo, pero 
éste está girado de modo que el lateral derecho de aquél ha pasado a 
ser la parte superior de éste y el lateral izquierdo, la parte inferior. 
Quedando la siguiente disposición: 


18 28 38 48 58 68 78 88 *8 
Nr O: dE BO 7 LA. + E SI. Y 
16 26 36 46 56 66 76 86 *6 
15: 23.38: 45. 31 00-710 807, 8 
14 24 34 44 54 64 74 84 *4 
1323532 43590319. 830% 
12 27 12 42.532,62 12 82.*2 
l> 2L 30 aL SL OP TE Lo e 
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La sección siguiente del programa completa las matrices con un 
bucle Z (en la línea 3070) poniendo todas las fichas en su lugar para el 
inicio del programa. La siguiente sección es claramente obvia cuando 
se examina, con la línea 3260 que da los valores a la matriz C para las 
jugadas del caballo, la 3280 que hace lo mismo con las de la torre y la 
3340 con las del alfil. El indicador de DATA vuelve entonces a la lí- 
nea 3290, el inicio de la información de la torre, de modo que la 
matriz D pueda completarse con las localizaciones tanto de la torre 
como del alfil, ya que la reina puede jugar por ambas fichas. 

La línea 3430 completa la matriz S con los números que aparecen 
en las sentencias DATA de las líneas 3430 a 3510. Quizá sean éstas las 
principales causantes de que el programa juegue tan rápido como lo 
hace a la hora de ejecutarlo. Estas series de números constituyen el 
orden en que se comprueban las casillas. Si compara esta secuencia 
con la del «tablero numerado» no le será difícil calcular la secuencia. 
Comienza con las casillas situadas enfrente de la posición inicial de los 
dos peones clave seguida de las casillas situadas a ambos lados de 
éstos, antes de retroceder a comprobar las casillas en las que los 
peones clave comienzan el juego. Una vez que se haya abierto paso a 
través de esta lista, es probable que quiera modificar la secuencia. 
Esta matriz, más que ninguna otra del programa, determina el tipo de 
juego que jugará el ordenador. Si el lector no está de acuerdo con la 
secuencia que yo he establecido, cámbiela sin dudarlo un momento y 
observe el efecto que esto produce en el juego del ordenador. 

La rutina de «cambio de lados» va de la línea 3540 a la 3640. 
Cuando el ordenador pierde una ficha se generan una serie de comen- 
tarios (del tipo de '*Bien movida campeón”, **Bien hecho”) en la ruti- 
na que va de la línea 3660 a 3720 y la sección final del código vierte la 
situación del tablero en ese momento a la impresora. 


43 


GOMOKU 


El GOMOKU es un juego que se aprende con mucha facilidad, 
pero en el que es casi imposible ganar. El ordenador juega extremada- 
mente bien en este programa, que está basado en uno escrito por 
Graham Charlton. 

El juego consiste en intentar colocar cinco de las fichas de uno (las 
H) en fila en cualquier dirección antes de que lo consiga el ordenador. 

Eche un vistazo de las posiciones de tablero que aquí se muestran y 
que están sacadas de una partida que yo jugué contra el programa. El 
estudio de éstas le mostrará cómo se desarrolla el juego y el modo de 
jugarlo. 
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POR FAVOR, CUAL ES TU MOVIMIENTO... (>) 


A 


a 


nl 


EI SF 0 
a a A A SS A 


a A A y AS 


] POR FAVOR, CUAL ES TU MOVIMIENTO, «20R FAUOR, CUAL ES TU MOVIMIENTO, ., 


Y este es el listado del GOMOKU: 


l 
10 REM Gomoku 
20 GOSUB 750 
30 GOSUB 130 
O ' 40 GOSUB 240 
50 GOSUB 130 
60 GOSUB 320 
70 GOSUB 130 
80 IF L > 3 THEN PRINT:¿PRINT "YO GANO! !"sEND 
| 90 GOTO 40 
| 100 E =A 
110 E = E + NIF A(E) <> Z THEN RETURN 
1 120 K = K + 1:GOTO 110 
¡130 CLS 
| 140 PRINT¿PRINT:¿PRINT 
150 PRINT TAB(12)1"1 234567 8" 
160 FOR A = 1 TO B:PRINT TAB (8)1A5" "5 
¡170 FOR B = 2 TO 9 
180 PRINT CHR$(A(A*1O + B))p" "3 
' 190 NEXT E 
200 PRINT A 
210 NEXT A 


O. 0 0 0 
O CO O. O. O O. O 


9 
) 


O 


O 


m7 


% 


510 IF L <> K THEN 540 

520 IF T = 1 ANDL < 4 OR (T = 2 0R T = 3) 
2 THEN 540 

530 Mu= M+1 

540 NEXT X 

590 IF M <= Hi THEN 570 

560 Hl = MIG = A 

570 NEXT A 


PRINT TAB(12)35"1 234356 7 8" 


RETURN 
PRINT:PRINT 


FPRINT "POR FAVOR, CUAL ES TU MOVIMIENTO..." 


INFUT G 

G=G+1 

IFG6<12 ORG * 89 OR A(G) <> 
l = H 

A(6) = Z 

RETURN 

A =6 

L=0 

FOR X = 1 TO 43k = Q0:N = X(X) 
GOSUB 100 

N = -N:GOSUE 100 

IF KE + L THEN L =K 


46 THEN 260 


NEXT X 

IF Lo 3 THEN PRINT:PRINT "TU GANAS! !":END 
Tos 1 

IF T<+* 2 THEN Z = C 


IF T= 2 THEN Z= H 

G = 0O1H1 = OL = 0 

FOR A = 12 TO 89 

M= 0 

IF ACA) <:* 46 THEN 570 

FOR X = 1 TO 4:3kK = 0:N = X(X) 
GOSUB 100 

N = —-N:GOSUB 100 

IF KK L THEN Hi = O:L = K 


IF Hi <> O THEN 650 


Te T+drlFT<>* 4 THEN 410 
A =1 

G = INT(RND(-1) * 77) + 13 

IF A(G) = 46 THEN 650 

A = A+ 1:I1F A < 100 THEN 610 


AND L 


¡SI O US SS E € ES E E SL RX 


O 


O 
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640 PRINT:PRINT "ME RINDO ":¿PRINT "ANTE UN GRAN 
MAESTRO! !":END 
630 A(G) = C 


670 N = X(X) 

700 GOSUB 100 

710 N = —N:GOSUB 100 

720 1F K + LTHEN L = K 

730 NEXT X 

740 RETURN 

730 CLS 

760 DIM A(100),X(4) 

770 FOR C = 1 TO 8 

780 FOR B = 2 TO 9 

790 A([ * 10 + B) = 46 

800 NEXT E 

810 NEXT € 

820 FOR Q = 1 TO 4 

830 READ Z:X(0) = 2 

840 NEXT Q 

830 DATA 1,9,10,11 

860 H = ASCO'H"):C = ASCO") 
870 PRINT:¿PRINT "Oprima S si desea empezar" 
880 PRINT "o bien N si no es asi" 
890 N = 0 


DT 0 


910 A$ = INKEYS 

920 IF A$ <> "s" AND As <% "S" AND A$ <> "n" AND 
A$ <> "N" THEN 900 

30 RANDOMIZE 

940 CLS 
950 1F As 
960 FOR J 
970 READ Z 
980 NEXT J 
990 A(Z) =C 
1000 RETURN 
1010 DATA 34,35,44,46,47,54,55,56,57,66 


"as" OR Aé = "S" THEN RETURN 
1 TO INTCRND (1) * 12) + 1 
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CUATRO EN RAYA 


Como su propio nombre indica, el objetivo del CUATRO EN 
RAYA es conseguir colocar cuatro de las fichas de uno (las H) en fila 
en cualquier dirección antes de que el ordenador lo consiga con las 
suyas (las C). 

El jugador humano indica la jugada que va a hacer especificando la 
columna a la que quiere mover su ficha. Tras esto la ficha se sitúa en 
la posición más baja disponible dentro de esa columna. 

El ordenador juega bastante bien y es sorprendentemente rápido, 
si se considera el número de veces que puede llegar a atravesar esos 
bucles dentro del programa. 

La primera versión escrita a mano de este programa no me dejó 
particularmente satisfecho, porque me daba la impresión de que había 
utilizado la «fuerza bruta» como modo de solucionar los problemas que 
se planteaban. Estaba seguro de que tenía que existir un modo mucho 
más inteligente de hacerlo. Sin embargo, continué con él y lo intro- 
duje en el ordenador. El programa ganó la primera partida y, aun 
cuando jugó de un modo un tanto extraño, supe que me encontraba 
ante un ganador, independientemente del modo en que había enfoca- 
do la programación. Posteriormente, cuando volví a meterme con él 
me di cuenta de que si el programa estaba correctamente estructurado 
(como de hecho lo estaba), si su código no era redundante (y por lo 
que se veía no lo era) y se ejecutaba con rapidez y facilidad, no había 
por qué andar «jugueteando»con él para hacerlo más complicado. Un 
código transparente es siempre mejor que un código inteligente, pero 
excesivamente complicado, el cual, aunque ocupe menos espacio y se 
ejecute unos cuantos microsegundos más rápido, es casi imposible de 
modificar. 
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Así pues, el programa que presento aquí es mi versión «por la 
fuerza bruta». Me he mostrado generoso a la hora de abastecerlo con 
sentencias REM de modo que el lector encontrara poca o ninguna 
dificultad a la hora de calcular qué es lo que hace cada sección del 
código. Asimismo, tras haber jugado unas cuantas partidas con el 
programa en su forma presente, al lector no debería resultarle dema- 


siado difícil modificarlo. 


En esta versión del CUATRO EN RAYA, el ordenador siempre 
permite que el jugador humano haga la primera jugada y basa su 
jugada inicial en la jugada hecha por el jugador humano. Es posible 
que el lector desee modificar el programa de modo quese dé también 
la posibilidad de que el ordenador abra el juego. 

Antes de pasar al listado, observe esta partida jugada por mí mis- 
mo contra el ordenador. 


a 


Tu movimiento... 


A que columna quieres 


moverte: 
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O 3 Ú 


50 GOSUB 980:REM MOVIMIENTO DEL HUMANO 

60 GOSUB 860:REM IMFRIME TABLERO 

70 GOSUB 680:REM COMPRUEBA VICTORIA 

80 GOSUB  110:REM MOVIMIENTO DE LA COMPUTADORA 
90 GOTO 30 

100 REM Hr dd dd MM MAH EA EA 

110 REM MOVIMIENTO DE LA COMPUTADORA - 

120 PRINT:PRINT "Observa mi movimientO..." 

130 B = 10 


-9 THEN 180 
= C:GOTO 210 
H THEN X = H:GOTO 210 
180 IF B < 77 THEN 140 
190 GOTO 480 
200 REM 400 e dl MM 
210 REM PELIGRO O POSIBILIDAD DE CUATRO EN RAYA 


a 
o 
-— 
nl 
DD 
Les] 
O 


220 REM EN HORIZONTAL 


230 IF A(B + 1) = X AND A(B + 2) = X AND A(B + 3 
) = Y AND A(B + 13) <+ V THEN MOVIMIENTO = B + 3:60 
OTO 630 

240 IF A(B -— 1) = X AND A(B - 2) = X AND A(B - 3 
) = V AND A(E + 7) ¿2% V THEN MOVIMIENTO = E - 3:60 
TO 650 

2590 IF A(B + 1) = X AND A(B + 2) = X AND A(E - 1 
) = V AND A(E + 9) <% V THEN MOVIMIENTO = B - 1:60 
TO 630 

260 IF A(B — 1) = X AND A(B + 2) = X AND A(B + 1 
) = V AND A(B + 11) <+* V THEN MOVIMIENTO = BE + 1:6 
OTO 650 

270 1F A(B + 1) = X AND A(B - 1) = X AND A(B + 2 
) = V AND A(B + 12) <% V THEN MOVIMIENTO = B + 2:6 
OTO 6430 

280 IF A(B + 1) = X AND A(B - 1) = X AND A(B - 2 
) = Y AND A(B + 8) ¿2 V THEN MOVIMIENTO = E - 2:60 
TO 630 

290 IF A(B - 1) = X AND A(E - 2) = X AND A(E + 1 
) = V AND A(B + 11) ¿3 V THEN MOVIMIENTO = E + 1:6 
OTO 630 

300 REM VERTICAL 

310 IF B + 20 THEN IF A(B - 10) = X AND A(B - 20 
) = X AND A(B + 10) = V AND A(B + 20) <: V THEN MO 


VIMIENTO = B + 10:GOTO 450 


O» 10 


O: — O. O O» 10. 0 


O. 00 O: 


¡o 


O 


E. 0 O. 


320 REM DIAGONALES 

330 IF A(B + 11) = X AND A(B + 22) = X AND A(ÉE - 

11) = V AND A(B - 1) <% V THEN MOVIMIENTO = B -— 1 
1:GOTO 630 

340 1F A(B + 9) = X AND A(B + 18) = X AND A(B - 
9) = V AND A(B + 1) <% Vo THEN MOVIMIENTO = E - 9:65 
OTO 4630 

350 REM Ar A Md MM A A A E MA E A 

360 REM HACER/ELOQUEAR UNO DE TRES? 

370 REM EN HORIZONTAL 

380 IF A(B + 1) = X AND A(B + 2) = V AND A(B + 1 
2) ¿3 V THEN MOVIMIENTO = B + 2:G0TO 650 

390 IF A(B + 1) = X AND A(B - 1) = V AND A(B + 9 
2 3 WOTHEN MOVIMIENTO = B - 1:¿G0TO 050 

400 IF A(B- 1) = X AND A(B - 2) = V AND A(B + 8 


2 2 VO THEN MOVIMIENTO = BE -—- 2:GOTO 650 
410 REM EN VERTICAL. 
420 IF A(B + 10) = X AND A(B —- 10) = V AND A(B) 


¿2 VW THEN MOVIMIENTO = B - 10:GOTO 650 
430 REM EN DIAGONAL 


440 1F A(E + 9) = X AND A(B - 9) = V AND A(BE + 1 
) e VO THEN MOVIMIENTO =B - 9:60T00650 

4390 1F B + 11 THEN IF A(B + 11) = X AND A(E —- 11 
) = Y AND A(B - 1) <: V THEN MOVIMIENTO = B — 11: 
OTO 650 


460 GOTO 180 

O 
480 REM MOVIMIENTOS INDIVIDUALES 

490 FOR N = 1 TO 3 

500 M(N) = 0 

310 NEXT N 

320 CUENTA = O 

S30 FOR B = 11 TO 77 

340 IF A(B)23C0 AND A(B)2:H THEN 600 


330 IF ACE + 1) = V AND ACE + 11) <% V THEN CUEN 
TA = CUENTA + 1:M(CUENTA) = B + 1 

360 IF A(B - 1) = V AND AE + 9) <* V THEN CUENT 
A = CUENTA + 1:M(CUENTA) = B - 1 


3570 IFA(B-10)=Y AND A(E)<*V THEN CUENTA=CUENTA+1 
¿MCCUENTA) =B-10 


390 IF A(B - 11) = V AND A(B - 1) <:% V THEN CUEN 
TA = CUENTA + 1:M(CUENTA) = B -— 11 

390 IF ACB - 9) = V AND ACE + 1) <% V THEN CUENT 
A = CUENTA + 1:M(CUENTA) = B - 9 


G. 0. +0. 0. Go A O 0.0 0: dd 


O 


O 
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2) E O 


600 NEXT E 

610 IF CUENTA <% O THEN 640 

620 PRINT:FPRINT "Creo que deberiamos llamarlo un 
"ahogado" " 

630 PRINT:FRINT:FRINT: END 

640 MOVIMIENTO = MCINT(RND(-1) * CUENTA) + 1) 
650 A(MOVIMIENTO) = C 

660 RETURN 

670 REM 44H dd A AMA A A 

680 REM COMFRUEBA FOSIBLE JUGADA GANADORA 

670 X = H 

700 B = 10 

710 B= B + 1 

720 IF A(B) <+ X THEN 770 

730 IF A(B + 1) = X AND A(B + 2) = X AND A(B + 3 
= X THEN 800 

740 IF B * 30 THEN 1F A(B -— 10) = X AND A(B - 20 
= X AND A(B - 30) = X THEN 800 

730 IF B > 33 THEN IF A(B - 11) = X AND A(B - 22 
= X AND A(B - 33) = X THEN 800 

760 IF B + 27 THEN IF A(B -—- 9) = X AND A(B -— 18) 


= 


X AND A(B - 27) = X THEN 800 


770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
3900 
910 

20 
930 
940 
930 
960 


IF Bx< 77 THEN 710 

IF X= H THEN X = C:GOTO 700 

RETURN 

REM ENCONTRADOS CUATRO EN RAYA 

PRINT:PRINT 

IF X = H THEN FRINT "Me has vencido, humano. 


IF X=C THEN PRINT "Te he vencido, humano..." 
PRINT:FRINT:PRINT:END 

REMO 06 dd 6d MM MIE II 
REM IMPRIME EL TABLERO DE JUEGO 
CLS:FRINT:FRINT 

FOR K = 10 TO 70 STEF 10 

PRINT TAB(5)5 

FOR JJ = 1 TO 7 

FRINT CHR$(A(K + J335" "; 

NEXT J 

NEXT E 

PRINT TAB(5)1"1 234 3 6 7" 
PRINT:¿FRINT 

RETURN 


O 


O 


970 

980 

990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
(B) = 
1200 
1210 


REM dd ER 
REM MOVIMIENTO DEL HUMANO 

FRINT "Tu movimiento..." :*PRINT 
PRINT "A que columna quieres" 
INFUT " moverte "; 

l=J 

Z = 272 +10 

IF A(Z + 10) = V THEN 1020 

IF A(Z) = V THEN A(Z) = H:RETURN 
FRINT "No puedes moverte ahi" 
GOTO 1000 

REM IA 
REM INICIALIZACION 

CELS 

DEFINT A-Z 

RANDOMI ZE 

DIM A(109),M(30),F(6) 

V = ASC(",.") 

H = ASC("H"):C=ASC("C") 

FOR BE = 1 TO 109 

A(B) = Y 

D= BE- 10 * INT(B / 10) 
IFD=00RD7ORB< il 0R Ba 


NEXT E 
RETURN 


- 


77 THEN A 
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DAMAS 


El juego de las DAMAS cuenta con una larga y honorable historia. 
R. C. Bell (en su libro Discovering Old Board Games, Shire Publica- 
tions, Aylesbury, UK, 1980), dice que se inventó en torno al 1100 
«probablemente en el sur de Francia utilizando las fichas del '*back- 
gammon” en un tablero de ajedrez y el método Alquerque para comer 
las fichas». La Encyclopedia of Sports, Games and Pastimes (Fleetway 
House, London, 1935) retrotrae sus orígenes todavía más lejos en 
el tiempo: «Formas de este juego se conocían ya en el Antiguo Egipto, 
Grecia y Roma, al tiempo que se jugaba mucho más a mediados del 
siglo XVII de lo que se juega hoy día.» 

Independientemente de su edad, es un juego muy popular en todo 
el mundo y muchos países europeos tienen sus propias variedades 
regionales. En general, en la Europa continental, por ejemplo, se 
suele jugar con un tablero de 100 casillas y cada jugador empieza la 
partida con veinte fichas. Esta modalidad se desarrolló a principios del 
siglo XVII. 

Este programa de damas juega la modalidad con la que quizá el 
lector esté más familiarizado. Juega con rapidez y razonablemente 
bien y, aunque carece de mecanismo para señalar el final del juego, a 
menudo puede llevar a un derrumbamiento dramático en el último 
momento. 

En las damas cada contrincante, usted y el ordenador por turno, 
intenta ya sea comer las fichas del contrario (lo que se realiza saltando 
sobre ellas y eliminándolas posteriormente del tablero) o confinarlas 
de modo que a éste no le sea posible moverlas de donde están. 

Generalmente se suele jugar en un tablero de 64 casillas en el que 
alternan las blancas y las negras. En este programa el tablero (como 


puede comprobarlo en la muestra que le ofrecemos a continuación) 
consiste en una serie de puntos en el que las fichas del jugador huma- 
no están marchadas con H (de humano) y las del ordenador con C (de 
«computadora competente»). 

Al principio del juego, el jugador humano tiene todas sus fichas en 
la parte inferior de la pantalla y va jugando hacia arriba y el ordena- 
dor tiene las suyas en la parte superior y va jugando hacia abajo. Tal 
como está establecido en el programa, el ordenador hace siempre la 
primera jugada. Si el lector prefiere que sea el jugador humano quien 
abra el juego, no tiene más que tachar la línea 50. 

Todas las jugadas se hacen en diagonal y hacia adelante, es decir, 
hacia el lado de partida del contrincante. Las fichas se convierten en 
«damas» cuando llegan al otro lado del tablero, el opuesto de donde 
han partido. Las damas del jugador humano aparecen como K y las 
del ordenador con el símbolo del dólar. Las damas se pueden mover 
hacia adelante y hacia atrás. Después de comer una ficha, saltando 
sobre ella a la casilla vacía situada inmediatamente después, se puede 
mover de nuevo siempre que sea posible volver a comer con la misma 
ficha. 

He aquí una serie de ejecuciones del programa: 


CONF ura) ORA: 0 
ALUMANOs h 
MURANO: 4 COMPUTADORA: 
HUMANO: A 
12345674 
AAA IFA 
E UN 


a E a | 
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E 
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a A Y a ll A 


a le 
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Da A 
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b 


COMPUTADORA: 6 
HUMANO 


4 
4 


HUMANO 


COMPUTADORA 


DN A A A A 


Dl ao IS 


A A a a al a A 
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COMPUTA 


HUMANO: o 


COMPUTADORA: 7 
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Y este es el listado de DAMAS: 


l 
| 10 REM Damas 
20 GOSUB1O10 
! SO REM BORRA LA LINEA 50 PARA QUE 
i 40 REM MUEVA FRIMERO EL. HUMANO 
( 50 GOTO9O 
NI ATA 
E Hd dl dd dl dE dl dE 3 dc: dE dE JE FE E dE 3 dE dE dE 
) 70 GOSUBOAOO 
80 GOSUB760 
| 90 GOSUBOAGDO 
' 100 GOSUBIGO 
110 GOTO7ZO 
120 REM dd a dd dE AE Md EM MD dE dE E E 0 E dd e E E 
| de dE dd dE dE dE dE dE dE dE E dE dE E dE dE E dE dE 
130 FOR X =1 TO 10:15 (0X)=0 NEXTX 
140 S5C=0:A=89 
| 150 A=A-1 
de 160 IFO(A)232 AND QA) CE THENZ40 
| 170 BExQ: 1F A229 THEN Bx=2 
E 180 B=E+1 
190 M=A+N (B) 
| 200 1FM:88 OR M211 THENZ240 
210 IF (Q(M=H OR Q(mM=HE) AND Q(M+N(E))=E THEN 
1 280 
| 220 IF Q(M)=E THEN 1F- (Q0(M-11)<:3H AND Q(M+-11)< 0H 
oK) THEN IF. (Q(M-9)2<:3H AND Q(M-9)< HE) AND ((M+9)< 
' HE THEN 1. ((Q(Me22) HE OR Q(M+18)< HE) AND ((Q(M+ 
LO PIZGO OR Q(M+P) A GOCE OR Q(M+*11)=C0 OR QO(M+11)=CkK)3) A 
: ND Q0(M+11)<3HE THEN GOSUE 400 
| 230 IF B22 OR (0(A)=CE AND Ex<4) THEN 180 
240 IFA>11 THEN 150 
| 2090 FL=0: 1IF0(22)=C OR 0(24)=C OR 0(26)=C OR 028 
l)=C THEN GOSUB 1270 
: 260 IF FlL=1 THEN 570 
270 GO0TO420 
e 280 Q(M+N(BD))= 0(A): O(M)=E:0(A)=E 
290 CO=C0+1 
' 300  GOSURS0O 
' 310 A=M +N(E) 


O 
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O 
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320 
330 
340 
330 
30 
360 
370 
80 
380 
390 
400 
410 
420 
430 
440 
430 
460 
470 
480 
490 
300 
310 
IO 
IO 
340 
330 
360 
370 
3580 
390 


B=(0 
B=E+1 
IF (A+2X*N(B)<11 OR A+2*N (E): 88) AND Ex“¿4 THEN 


M=A+N (E) 
IFO(M)=C AND B>3 THEN RETURN 
IF(Q(M)=H OR Q(M)=HE) AND Q(M+N(B))=E THEN 2 


IF B¿2 OR (Q(A)=CE AND Ex 4) THEN33O 
RETURN 

IF SC ¿10 THEN SC =SC+1 

S (SC) =100*A+B+201 RETURN 

IF SC =0 THEN 470 

XC=INT(RND (-1)*S5C0)+1 

A=INT (S(XC)/100) 

M=A+N (5 (XC0)- 100*A-20) 

GOTOS7O 
SC=5C+1: A= INT (RND (-1):88)+1 
IFO(A)<3C AND Q(A)<* CE THEN 550 
B=0 

B=E+1 

M=A+N (E) 

1FM*88 OR M<¿11 THEN 340 

IFQ(M)=E THEN 370 

IF B22 ORO(A) =CE AND Ezx4 THEN 500 
IFSC2300 THEN470 

PRINT:¿PRINT" RECONOZCO QUE HAS GANADO": END 
Q(M=0(8):0(8)=E 

RETURN 

REM HA RH MMM MMMM MMM 


RS 


600 
610 
620 
630 
640 
630 
660 
670 
680 
690 
700 
710 


CLSi:¡PRINT:PRINT 


PRINT " COMPUTADORA: "C0 
PRINT " HUMANO: "HU: PRINT:FRINT 
PRINT " 123450678" 


FORF=80T010 STEF 10 

PRINTF/103" "3 

FORG=1T08: FRINTCOHRE$ (O(F+6)33" "5 :NEXTG 
PRINTF/10: NEXTF 


PRINT " 2345678" 
IF CO=x12 OR HU=1i2 THEN710 
RETURN 


IF HU =12 THEN PRINT "HAS VENCIDO" 


O. 00 DO O 00:50 DA 00 éÉ d 


O 


O 


O. O O 


720 
730 
740 


IF CO =12 THEN PRINT "HAS SIDO DERROTADO" 


PRINT " GRACIAS POR EL JUEGO": END 
REM 6 0 MM III MMM 


Me MI HE E E 


730 
760 
770 
780 
790 
800 
810 
820 
830 
840 


REM 99 FARA RENDIRSE 
PRINT:FRINT 

PRINT "CUAL ES TU MOVIMIENTOS" 
INFUT "DE "5 

1FA=99 THEN GOTO7:30 


INFUT"A "3 
IFO(B)2>E THENB1O 
0 (E)=0 (A) :0(A)=E 
REM IA dd Ed dE A E E E E E DE DE AE E E E E dE DEI ME e 0 A 


AS 


830 
860 
870 
880 
890 


FORT=11 TO 17:1F QT) =C THEN Q(T)=Ck 

NEXT T 

FOR T=82 TO 88: IFQ(T)=H THEN Q(T)= HkK 

NEXT T 

IN a 


E RS 


900 
910 
920 

O] 

930 

AO 
940 
950 
960 
970 

As 
980 


990. 


1000 


IF ABS(A-B)212 THEN RETURN 
TY=RIND (-1) 
IF TYxX.3 THEN PRINT"BUEN MOVIMIENTO": GOSUE JLS 


IE TY, 7 THEN PRINT" ME HAS COGIDO!" GOSUEIL3 


HU=HU+15 0 CCA+BE) /2) =Es GOSURGOO 

FOR T=82 TO 88: IFQ(T)=H THEN QCT):=Hk 

NEXTT 

PRINTS INFUT"PUEDES SALTAR DE NUEVO (S / N)"5 


IFA$<>"s" AND A$<>"S" THEN RETURN 
A=Bs GOTOBOO 
IN 


AIM MI II IE II IE EI E E E dE 


1010 
1020 
10:30 
1040 
1030 
1060 
1070 


REM INICIALIZACION 
CLS:¡PRINT "APRIETA CUALQUIER TECLA" N==1 


N=N+1: IF INKEYs ="" THEN 1030 
CELS 
PRINT "UN MOMENTO, FOR FAVOR" 


DIM (99),N (4),5(10) 
H=ASC ("H") 21 HE=ASC("kK") 


O “DO -D OQ 


O 100. Y 


O 


O 
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O 


1140 DATA 


1150 DATA 


1160 DATA 
1170 DATA 
1180 DATA 
1190 DATA 
1200 DATA 


E - E DO 


1210 DATA 
1220 DATA 
1230 DATA 


1250 DATA 
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1260 CO=0: 
1270 1FQ(22)=C AND Q(11)=E THEN A=22:M=11:FL=1:RE 


1080 C=ASC("C"):CK=ASC("$") 
1090 E=32:0F=-99 

1100 FORM=1T099: 0 (M) =0F: NEXTM 
1110 FORM= 
1120 READD:READG 
1130 0(D)=G:NEXTM 


1T064 


81,46,82,67,983,46,84,67,85,46,86,67,87, 
88,67,71,67,72,46,73,67,74,46,75,67,76, 
77,67,78,46,61,46,62,67,63,46,64,07 
65,46,66,67,67,46,68,67,51,32,52, 46 
53,32,54,46,55,32,56,46,57,32,58, 46 
41,46,42,32,43,46,44,32,45,46,46,32 
47,46,48,32,31,72,32,46,33,72,34,46,35, 
36,46,37,72,38,46,21,46,22,72,23,46,24, 
25,46,26,72,27,46,28,72,11,72,12,46,13, 


14,46,15,72,16,46,17,72,18,46 


1240 FOR M=1TO 4:READ X:¿N(M)=X:NEXT M 


“ii, -9, 11, 9 
HU=0: RETURN 


1280  —1FO(22)=C AND Q(13)=E THEN A=2adiM=iPLadaR 
1290  1F0(24)=C AND 0(1:3)=E THEN A=241iM=131FL=1:R 
1300 1FQ(24)=C AND Q(13)=E THEN A=24:;M=15;FlL=1R 
1310  IFQ(26)=C AND (C(13)=E THEN A=26:M=15:FL=1:R 
1320  1F0(26)=C0 AND Q(17)=E THEN A=26:M=17:FL=1:R 


1330 RETURN 
1340 FORO=1 TO 1000:¿NEXTO ¿RETURN 


O,» (O 0: 0 


O. 0. 00 0 O O 0 0 


SHOGUN 


El SHOGUN está basado en un juego japonés llamado HASAMI 
SHOGI. En este juego, que se juega generalmente en una esquina de 
un tablero «GO», los jugadores pueden mover en cualquier dirección 
(hacia adelante, hacia atrás o hacia los lados) siempre que sea en línea 
recta. No se permite mover en diagonal. Asimismo, se puede saltar 
sobre las fichas (una de cada vez y siempre en línea recta) ya sea ésta 
de uno mismo o del contrario. 

La ficha que se salta no se retira del tablero. El modo de comer las 
fichas del contrincante es apresarlas entre dos fichas propias. Es decir, 
el jugador humano ha de conseguir poner una ficha suya a cada lado 
de una ficha del ordenador (excepto en diagonal), en cuyo caso esta 
ficha se considera comida y se retira del tablero. Si una ficha tiene 
posibilidad de moverse entre dos fichas del contrincante, no puede ser 
comida por éste. 

No existen jugadas dobles. Es decir, no se puede volver a mover 
después de comer. Originalmente el juego acababa cuando uno de los 
contrincantes había conseguido comer todas las fichas del otro, pero 
como esto supone un juego lento y largo y las partidas contra el 
ordenador podían eternizarse, decidí escribir un programa en el que el 
ganador fuera el que primero consiguiera comer seis fichas a su con- 
trincante. 

Aprenderá a jugar sencillamente viendo cómo se mueven las fi- 
chas. No se olvide de que se puede saltar sobre las fichas de uno 
mismo o sobre las del contrario. Es una buena táctica para conseguir 
poner las fichas en el centro del tablero casi al inicio del juego, lo que 
hará un juego más divertido. 
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Este es el listado del SHOGUN: 


| J 
O E 10 REM Shogun O 
20 REM ASEGURATE DE TRABAJAR CON MAYUSCULAS / 
| 30 GOSUB 790 ! 
¡63 40 GOSUE9O O 
! 50 GOSUB460 
60 GOSUB63O 
Os 70 GOSUB460 O 
80 GOTO40 
90 REM CAPTURA 
O | 100 A=99 O) 
110 IFA(A) <> C THEN 190 ¡ 
| 120 IFA(A-10)=Y THENIFA(A-9)=H THEN IFA(A-8)=C T | 
O | HENB=A-10: GOTO3SO O 
130 IFA(A-10)=VY THENIFA(A-11)=H THEN IFA(A-12)=0 1 
O | THENB=A-10:GOTO350 
140 IFA(A-10)=V THENIFA(A+11)=H THEN IFA(A+12)=C 1 O 
¡; THENB=A-10: GOTO350 
o. 150 B=i ' O 
160 IFA+2*C(B)<11 OR A+2*C(B)>99 THEN GOTO180 : 
170 IF A(A+C(B))=V AND A(A+2*C(B))=H AND ACA+F3XC 1 
OL (BM) =C THEN A(A+2XC(B))=V:  CS=CS+1:G0TO340 O 
: 1890 IF B<4 THEN B=B+1:G0TO160 : 
190 1F A>11 THEN A=A-1:60TO110 
O i 200 REM NO HAY CAPTURA | O 
] 210 CUENTA=0 
220 CUENTA=CUENTA+1 
o 230 A=RND (-1)+*89+11 : O 
pp 240 IFA(A)=C THEN 270 | 
] 250 IF CUENTA <200 THEN 220 | 
O : 260 PRINT "Maestro del Shogun": FPRINT "Yo te doy 10) 
rola victoria!":END 1 
: 270 B=1 
E 280 IFA+2*C(B)<11 THENZOO LO 
l 290 IF(A(A+C(B))=C OR A(A+C(B)) =H) AND ACA+2XC( | 
BD) = Y THEN B=A + 2«C(B):GOTO350 
'O 300 IF A(A+C(B))=VY THEN33O 0 
E 310 IFB<4 THENB=B+1:G60T0280 
320 GOTO250 
On 330 REM MUEVE LA COMPUTADORA to 
| | 


340 B=A+C(B) 
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O 


350 
360 
370 
380 
+1 
390 
400 
+1 
410 
420 
=0S+1 
430 
440 
=0S5+1 
450 
460 
470 


Bl=B-10* (INT (B/10)) 

A(BD=CIA(A)=Y 

IFB1>7 THEN 390 

IF A(B+1) =H AND A(B+2)=C THENA (B+1)=V: 10S=05 


IFB1<3 THEN410 
IF A(B-1) =H AND A(B-2)=C THENA (B-1)=V; C9=(05 


IF 4:89 THEN 4:30 
IF A(B+10) =H AND A(B+20)=C THENA (B+10)"V3 05 


1 A229 THEN RETURN 
IF A(B-10) =H AND A(B-20)=C THENA (B-10)=V1 05 


RETURN 
REM IMPRESION DEL TABLERO 
LOCATEO, O¿REM FONGA HOME AQUI 51 SU COMFPUTAD 


ORA TIENE ESTE COMANDO 


480 
AO 
300 
310 
pee] 
O 
340 
HO 
360 
370 
380 
090 
1818) 
610 
e) 
630 
tr 40 
630 
660 
670 
6830 
690 
700 
710 
720 


FRINT TAB(15951"1 23456 7809" 
FORM=90 TOlO STEF-10 

FRINT TAB (13) CHR$(M/10+04)4" "5 
FOR N=1 TO 9 

FRINT CHRES$SC(A (Memo "3 

NEXT 

FRINT CHR$(M/10+064) 

NEXT 

FRINT TAR(15)31"1 23456 7809" 
PRINT¿PRINTO O, "COMPUTADORA: "(CS 
FRINT O, "HUMANO: "HS 

IF CS:ó6 OR HS:6 THEN610 

RETURN 

IF CS + HS THEN ERINT:FPRINT "YO GANO! "sEND 
PFRINT¡FPRINT "TU GANAS! "¿END 

REM MOVIMIENTO DEL JUGADOR 

INFUT "Desde (letra, No)"3A%$ 
1IFA$="S" THEN END 

IF LEN (A$)<:2 THEN 640 

FRINT "Desde "A$" a "3: INFUT Es 

IF LEN(B$)2:2 THEN 670 

A=10* (ASC (A4$) -64) +VAL (RIGHT$(A$, 1)) 
E=1 0% (ASC (E$) 64) +VAL (RIGHTS (E$, 1)) 
Y=VAL (RIGHTS ($, 1)) 

A(ED=H:1A4(A)=VY 


E O: O. “E «O: DO ¿O El e 


O 


O 
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O 
O 
O 
O 


| 
1 
| 
! 
] 
y 
4 
i 
| 
4 
1 
| 
| 
) 
| 
l 
! 
i 
4 
| 
| 
t 
t 
l 
| 
! 
! 
| 
' 
] 
) 
? 
| 
1 
i 
l 
l 
| 
| 
| 
! 
| 
| 
| 
l 
1 
| 
! 
] 
| 
| 
| 
l 
| 
| 
l 
| 
l 
l 
| 
! 
J 
| 
l 
l 
1 
] 
! 
1 


TO 


=V 1 HS= 


740 


=Y 1 HS= 


730 

760 
S+1 

770 


IFA(B+1)=C AND A(B+2)=H AND Yz2=7 THEN A(B+1) 
HS+1 

IFA(B-1)=C0 AND A(B-2)=H AND Yi=3 THEN A(CB-1) 
HS+1 

IFE:79 THEN77O 

IFA (B+10)=C AND A(B+20)=H THENA (E+10) =V1 HS=H 


IFE+=31 THEN IF A(B-10)=C AND A(B-20)=H THEN 


A(B-10)=V1 HS=HS+1 


780 
790 
800 
OS 
810 
820 
830 
840 
830 
870 
880 
890 
900 
910 
ZO 
PO 
94 
930 
960 
970 
980 
2990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 


RETURN 
REM INICIALIZACION 
REM PREFARA EL GENERADOR DE NUMEROS ALEATORI 


PRINT "APRIETA CUALQUIER TECLA" 
N=1 

N==N++ 1 

IF INKEY$="" THENS3O 
RANDOMIZE 

CL.S 

DIM A(129), 0(4) 
H=72:0=67: V=4:2 
FORZ=11T029 

IFZ=20 THENZ=2 
A(Z)=H 

NEXT 

FORZ=31 TO 79 

IF 10*INT(Z/10)=Z THEN Z=Z+1 
A(Z)=4 

NEXT 

FORZ=81 TO 99 

IFZ=90 THEN Z=91 
A(Z)=C 

NEXT 

HS=0 

CS=0 

FORZ=1T04 

READC (7) 

NEXT 

DATA -10, -1, 1, 10 
GOSUB460 

RETURN 


O 07 EE 250 O 50. O 20 OO “O 


D- 0 O 0 


AWARI 


El AWARI es uno más de esos muchos juegos que se juegan con 
guijarros en el suelo a lo largo y ancho del mundo, de Africa a Filipi- 
nas, y que ahora entrará en su hogar traído por un inteligente contrin- 
cante: su ordenador. 

Como puede ver en la muestra que le ofrecemos a continuación, al 
inicio del juego cada jugador tiene frente a sí seis hoyos (las letras de 
A aF y de L a G). Cada hoyo contiene tres guijarros. Escogiendo 
cualquiera de los hoyos de su lado, el jugador recoge los tres guijarros 
de éste y posteriormente procede a lanzarlos en el sentido de las agu- 
jas del reloj sembrando con uno de ellos cada hoyo que encuentre a su 
paso. No se siembran los hoyos que están en los extremos del tablero, 
los que parten de cero. 

Si el último de los tres guijarros cae enfrente de un hoyo vacío, en 
ese caso todos los guijarros del hoyo en que ha caído pasan a este 
jugador, quiense los lleva a su «casa». La casa del jugador humano es 
el hoyo que parte de cero en el lado izquierdo del tablero, la del 
ordenador es el de la derecha. 

El juego continúa hasta que no quedan guijarros en ninguno de los 
hoyos a ambos lados, de modo que los jugadores ya no pueden mover. 
Gana aquel que consiga tener más guijarros en «casa». El ordenador 
juega bastante bien, pero con algo de práctica puede llegar a vencerle. 
No espere ganarle al principio. Si no quiere ver la jugada del ordena- 
dor antes de que la haga, suprima el INPUT Z en la línea 270. Asimis- 
mo, puede borrar el bucle de la línea 40 con lo que conseguirá el 
máximo de rapidez (aunque, de hecho, el ordenador juega muy depri- 
sa aun en su forma presente). 
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Este es un ejemplo de juego contra el ordenador: 


ha y E 
' E . ! E F 
A A AR sE 
4 4 A A H 4 A 
il H É 


| 


CEA TT 
ls E 


” 
a 4 
; 


Con que agujero quieres empezar 


le novere desde L Con que agujero 


colza. 
im 
cla. CE 


lr 
a] 
Mr 
Most AT 


ro 
BO! A 0] 


le novere desde A 


ra a] a a 
| 
1 
| 
[| 


Con que agujero quieres empezar?L () 


BRCDES BCDE [_) 
51400 1437117 
j 3 9 L6 
4601240 e: A rr 
0 O A: OA E: () 
le novere desde E Con que agujero quieres enpezar?] [) 


e E 
O E: 


lle novere desde E Po 
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14 17 14 28 
003100 4004100 
LK JTHE LKJ IR 
| Me novere desde É Con que agujero quieres empezar?! 
ABCDEF 
000000. 
| 0 ¿e 
001000 
LKJ I1IHA 


ESTE HA SIDO EL FINAL DEL JUEGO 
110 SOY EL VENCEDOR! 


MI PUNTUACIÓN FUE 20 
FLA TUYA FUE la 


a — 


Y este es el listado del AWARI: 


1 
| e 
O 10 REM Awari TO 
| ZO GOSUB 930:REMInicializacion 
| ZO GOSUB770: REM Imprime el tablero 
O! 40 FORP=1T0500: NEXTE O 
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S.- QQ O 3 


30 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 


GOSUB160:REM Movimiento de la maquina 
GOSUBE 770:¿REÉM Imprime el tablero 
GOSUB 620:REM Movimiento del humano 
CW=0 2 HW=0 

FORC=1 TO 12 

1FC0<7 THEN CW=CW+A (0) 

IFC>+6 THEN HW=HW+A (0) 

NEXTC 

IFCW=0 OR HW=0 THENS10O 

GOTO3ZO 

REM 400 6d dd HE A MAA A E A 


A 


160 
170 
180 
190 
200 
210 
220 
E 
230 
e GM 
240 
230 
260 
270 
280 
290 
300 
310 
320 
230 
340 
330 


360 


REM Movimiento de la maquina 

GM=0: C=0 

C=C+1 

IFA(C)=0 THEN 180 

Z=C+A(C) 

1FZ2:12 THENZ=Z-12 

IFZ:6 THEN 1F A(Z-6)2350 AND A(Z)=0 AND A(Z-6 
THEN GM=( 

1FZ227 THEN 1F A(Z+6)<3;0 AND A(Z)=0 AND A(Z+ó 
THEN GM=C 

1FCX6 THEN 180 

IF GM=0 THEN37O 

C=GM 

FRINT"Yo movere desde "CHR$(64+(0)1: INPUT Z$ 
FORZ=C TO C+A(C) 

IFZ +12 THEN A(Z-12)=4(Z-12)+1 

1F72<13 THENA(Z)=A(Z)+1 

NEXTZ 

Z=C+A ((0)-1:1FZ>12 THEN Z=Z-12 

A(C)=0 

ECM) =B(2)+A(13-Z2):4 (13-Z)=0 

RETURN 

A RR RA 


FI IE IE IE IE IE III E E HE E E 


370 
580 
390 
400 
410 
420 
430 


REM Movimiento sin puntuacion 
W=0 

W=W-+ 1 

C=INT (RND (-1)*6)+1 

IF A(CI<s*0 THEN 440 

IF Wi20 THEN 390 

GOTOS1O 


O) 0 


O. EL CO). “O 2 0 O Oh O o 


O 


O 
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E O: E a 


440 
450 
460 
470 
480 
490 
500 


PRINT"Me movere desde "CHR$(644+C): INPUT Z$ 
FORZ=C TO C+A(C) 

IF 2213 THEN A(Z) = A(Z)+1 

IF Z12 THEN A(Z-6)=A(Z-6)+1 

NEXT Z 

A(C)=0 :GOTO3GSO 

II A, ,5,5,5, 5,51 


FRI RIE IET IE IE IE IE IE IE E 


310 
32O 
330 
340 
uo 
360 
pu 
370 
rm” 
380 
390 
600 
610 


REM Fin del juego 

GOSUB770 

FRINT:¿PRINT"ESTE HA SIDO EL FINAL DEL JUEGO" 
FRINT 

IF B(1):B(2) THEN PRINT"ERES EL VENCEDOR! !" 
IFB(1)<B(2) THEN FRINT"Y YO SOY EL VENCEDOR 


IFE(1)=B(2) THEN PRINT"CREO QUE ES UN AHOGADO 


PRINT:PRINT"MI FUNTUACION FUE "E(2) 

PRINT" Y LA TUYA FUE"B(1) 

END 

TI e 


TRE DEI METE RIIIE E 


620 
630 
640 
630 
660 
670 
680 
690 
700 
710 
720 

GO 
740 
730 
760 


REM Movimiento del humano 

INFUT" Con que agujero quieres empezar "5% 
E=ASC (A$) -64 

IFB<27 OR Bx12 THEN63O 

CO=B: Z=B+A(B):1F Z:12 THENZ=Z-12 

M=A (7) 

FORZ=BE TO B+A(B) 

IF 2:12 THEN A(Z-12)=A(Z-12)+1 

IFZx13 THENA (Z)=A(Z)+1 

NEXT Z 

Z=B+A(B)-11 1FZ>12 THEN Z=Z-12 

IFM=0 THENB (1)=B(1)+4 (13-Z72):4(13-Z2)=0 
A(CO)=0 

RETURN 

REM Hr IE 


FER I IE TEME II RIE IE RIIIE III HE 


770 
780 
790 
800 
810 


REM Imprime el tablero 


CLS:PRINT:¿PRINT:FRINT 

PRINT" A BCE DE F"¿FRINT " os 
FORC=1T06 

PRINTA(C):5 


GS OO O 0. 0 Q 


O 4 Oc 00 


O 


O 820 NEXTC 

830 PRINT:¿FRINTE(1)" "ECG FRINT 
340 FORC=12 TO 7 STEF-1 

8350 PRINT A(C)I; 

860 NEXTCE 

870 FRINT:PFRINT " L E JJ 1 HG" 

880 FRINT¿FRINT 

890 RETURN 

300 PRINT "ME MOVERE DESDE "CHK% (64+6M) 

910 C=(6M 

A E AAA 

JH EH RM DE Dd AE 

30 REM INICIALIZACION 

$40 CELS 

9350 RANDOMIZE 

960 DIM AZ), BC) 

970 FORC=1 TO 12 

3280 AMD) 

990 MEXTC 
1000 RETURN 


O. O 0 0 


O 


O 


' 
I 
l 
1 
I 
l 
] 
1 
1 
J 
¡ 
y 
) 
1 
! 
| 
1 
I 
I 
| 
! 
l 
1 
1 
1 
| 
I 
i 
1 
l 
l 
ll 
( 
l 
l 
| 
| 
) 
| 
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KNIGHTSBRIDGE 


Es éste uno de los pocos juegos que puedo decir que he inventado 
en su totalidad (aunque, por supuesto, la idea de ponerle el nombre 
de un barrio de Londres la tomé de los dos inventores del Kensing- 
ton). Tengo la costumbre de leer libros de juegos para sacar ideas y 
muchas veces cuando me voy a pasear por los parques londinenses 
llevo un libro conmigo para leer cuando me canso de andar y me 
apetece descansar un rato. Este juego se me ocurrió una tarde de 
domingo mientras paseaba por «Ruislip Lido» pensando en algo que 
acababa de leer en un libro. Se decía en éste que el ajedrez, tal como 
se conoce ahora, es la evolución de un juego indio en el que el lanza- 
miento de dados dictaba la ficha que había que mover. 

Partiendo de este punto, pensé en un juego en el que todas las 
fichas fueran caballos de ajedrez y en el que se tiraran los dados de 
cada vez para saber qué ficha iba a mover. El Knightsbridge se desa- 
rrolló a partir de esta idea. 

Se juega en un tablero de siete por siete. El ordenador le indica 
qué ficha tiene que mover (cada ficha se indica introduciendo un 
número de dos dígitos que es el número de la casilla resultante, en la 
que se encuentran uno de los números situados en un lateral del 
tablero y otro de los situados en la parte superior de éste), y le deja 
decidir a dónde va a moverla. Todas las fichas se mueven como los 
caballos de ajedrez y antes de permitirle hacer la jugada, el ordenador 
la comprueba para ver si es correcta. 

El modo de comer es caer en una casilla en la que haya una ficha 
del enemigo. El primer jugador que logre comer cinco de las siete 
fichas del contrario, es el ganador. No se dan saltos múltiples. 

Encontrará que el ordenador juega rápido y bien. 


Y aquí tenemos al inventor del juego siendo derrotado por su 


propia invención: 
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Aquí está el listado de KNIGHTSBRIDGE: 


O 10 REM Enightsbridge 
20 GOSUB 760:REM inicializacion 
O 30 GOSUB 490:REM Imprime tablero 


40 1F HU =5 OR C0=5 THEN 680:REM Fin del juego 
50 GOSUB FOO: REM Mueve la computadora 


70 1 HU=35 OR CO=5 THEN 680:REM Fin del juego 
80 GOSUB 110:REM Mueve el jugador 


O O O 0 


90 GOTO O 
100 REM 40d de de e E E MD EE MEE DE AA DIA 
Y MARINA 


] 
1 
/ 
! 
| 
) 
, 60 GOSUB 490:¿REM Imprime el tablero 
O | 
l 
! 
| 
| 
I 
] 
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110 REM Mueve el jugador 

120 QO=0 

130 M = INT(RND (-2)*66) + 11 
140 Q = (QU + 1 


150 1F ( = 500 THEN 680 

160 IF H(M) ¿2 72 THEN 130 

170 FRINT "Debes mover la ficha sobre "NM 

180 INFUT N 

190 IF N = 99 THEN QQ = 500 : GOTO 480 

200 REM x*****Comprueba si el movimiento es legal 
AAA 

210 F = 0 

220 CT = 1 

230 1F M + Z(0T) = N THEN F = 1 

240 1 CT 2 8 THEN CT <= CT + 1 ¿GOTO 230 

2390 1F P = O THEN PRINT "Movimiento ilegal": G60TO 

180 

260 1F H(NM) = 67 THEN HU = HU + lí PRINT"Bien ju 
gado!" ¿FOR R = 1 TO SO0:¿NEXT R 

270 H(M) = 46: H(N) = 72 

280 RETURN 

29O REM td A A 
ES 

300 REM Mueve la computadora 

310 01 = 0 

320 01 = Q1 + 1 

330 k = INT(RND(-2)*66) + 11 

340 1F (01 = 500 THEN 680 

350 IF H(K) <3% 67 THEN 320 

360 PRINT "Tengo que mover la ficha sobre "KK 

365 FOR Z=1 TO 1000: NEXTZ 
2370 W= 1 

380 IF KE + Z(W) < 11 OR K + Z(W) * 77 THEN 400 

390 IF H(K + Z(W)) = 72 THEN FRINT "MUY BUENO... 
"300 = CO + 1:FOR FP=1 TO 200:NEXT P:GOTO 450 

400 IF W < 8 THEN W = W + 1:GOTO 380 

410 W = 1 

420 IF (K + Z(W) < 11 OR K + Z(W) 3 77) AND W < 
8 THEN W = W + 1:GOTO 420 

430 1F H(K + Z(W)) <> 46 AND W < 8 THEN WN = Y + 
1:GOTO 430 

440 IF W = 8 AND H(K + Z(W)) <* 46 THEN Q1 = 500 
¿GOTO 680 


o o 


O O. -0 00 «Q. O O O LO OO 


O 


O 


O 


O 


O QQ. 0 


430 X = KiY= E + Z(W) 

460 H(X) = 46: H(Y) = 67 

470 RETURN 

480 REM rm MM HI HE IE II MEE A 
MM IR 

490 REM Imprime el tablero 

500 CLS:PRINT:FRINT:FRINT 

510 FRINT TAB(8)5"Mi puntuacion es "CO 

320 PRINT TAB(B)5;"Y la tuya es "HU 

350 FRINT 

540 FRINT TAB(8)5"1 234 5 6 7" 

5390 PRINT TAR (833 " —------------- " 

560 FOR M = 70 TO 10 STEF —-10 

370 PRINT TARB(S)iM / 105 

580 FOR N = 1 TO 7 

590 PRINT CHR$(H(M + NJ" "3 

600 NEXT N 

610 PRINT M / 10 

620 NEXT M 

OO PRINTOTAR (BD) 5 Ñ 

640 FRINT TAB(8)13"1 2.34 3 6 7" 

65350 FRINT 

660 RETURN 

E7O REM rd dd dE E AA 
HH IE AA 

680 REM Final del juego 

690 GOSUE 490 

700 1F HU = 5 THEN FRINT "ME HAS VENCIDO, HUMANO 


710 1 CO = S THEN PRINT" ESTA VICTORIA ES LA ER 
IMERA DENTRO DE"“¿PRINT "UN PLAN GLOBAL FARA CON 
QUISTAR LA TIERRA!" 

720 1 QU 500 THEN FRINT " ACEFTO TU DESEO DE R 
ENDIRTE" 

730 1F Q1 = 500 THEN FRINT " ME RINDO ANTE UN MA 
ESTRO" 

740 END 

750 REM redee dd e E Ad E E dd MH E E dE EH A E 
ed dd A E AM E E 

760 REM Inicializacion 

770 CLS:PRINT "UN MOMENTO, FOR FAVOR... HUMANO" 

780 DIM H(99), Z(8) 

790 X = QOiíQ1 = 010 = 0 


O GS 50 0 0-00 


O. 0: 0-0 


O 


O 
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800 RANDOMIZE 


e ¡ 
Ñ ) 
O | 810 HU = 0:C0 = O¿REM Funtuaciones | 0) 
| 820 FOR A = 1 TO 99 | 
I ZO IFA > 77 DORA = 70 DRA= 660 OR A = 48 OR A | O 
O = 69 DORA = 50 DRA = 359 ORA=400RA= 48 OR A | 
| = 49 THEN 880 | 
O : 840 IF A = 30 OR A = 38 0RA=390RA=20 ORA | O 
|= 28 DRA = 29 DRA = 18 0RA= 19 ORA< 11 THEN l 
| 880 
Ol 250 HA) = 46 ' O 
1 860 IF A + 70 ANDA £ 78 THEN H(A) = 67 ! 
!. 0870 IFA > 10 ANDA < 18 THEN H(A) = 72 
Ah 1 880 NEXT A A 
O 890 FOR A=1 TO 8:READ Z(A): NEXT A O 
| : 900 DATA -8, -21, -12, -19, 19, 12, 21, 8 ' 
| y 2910 RETURN ES 
| n I 0) 
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REVERSIUOTHELLO 


El último programa de este capítulo es el REVERSI, que a menu- 
do también se llama OTHELLO. Inventado a finales del siglo pasado, 
se juega en un tablero normal de ocho por ocho. Cuando se juega en 
un tablero real, se utilizan fichas que son de un color diferente por 
cada lado. El juego comienza con cuatro fichas situadas en las casillas 
centrales. 

Desde este momento, el jugador humano mueve situando una de 
sus fichas al lado de una ficha o fichas del ordenador y procurando que 
haya otra ficha suya al otro lado de aquella o aquellas. Cuando sucede 
esto, la ficha o fichas del ordenador se convierten en fichas del juga- 
dor humano. 

Así es como funciona. Suponga que se diera una línea en la que las 
fichas estuvieran colocadas del modo siguiente: 


OXXXX 


... y que usted decidiera poner su ficha (la O) al final de la línea; 
de este modo: 


OXXXXO 


las fichas del ordenador se convertirían en fichas suyas, de modo 
que la composición de la línea después de la jugada sería: 


000000. 
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El juego continúa hasta completar todas las casillas del tablero o 
hasta que ninguno de los dos jugadores pueda mover. Como se puede 
ver, la suerte va pasando a toda velocidad de un jugador a otro, ya 
que las líneas que se van creando (como las diagonales) pueden 'modi- 
ficarse con una sola jugada. 

Si en un momento determinado el jugador humano no puede mo- 
ver, se lo dice al ordenador introduciendo un cero. 

El Reversi es un juego muy divertido. En un artículo publicado 
en la revista Creative Computing (junio, 1981, pág. 188), David Levy 
era de la opinión de que es «uno de los mejores juegos que se hayan 
inventado nunca, simplemente porque teniendo unas reglas tan senci- 
llas que un minuto es suficiente para aprenderlas, es, sin embargo, un 
juego que requiere con frecuencia años de aprendizaje antes de que 
uno llegue a dominarlo». Posteriormente observa que es un juego 
complejo, más complejo, por ejemplo, que las damas, aunque menos 
que el ajedrez. 

Aunque el juego moderno se llama OTHELLO + y fue «inventa- 
do» en Tokio en 1971, por Goro Hasegwana, la única diferencia entre 
éste y el antiguo Reversi radica en la colocación de partida de las 
cuatro primeras fichas que ha de ser como se indica en el ejemplo 
gráfico que sigue a esta descripción. 

Pero si volvemos a los años ochenta del siglo pasado, cuando se 
inventó el juego en Londres, nos encontramos con que son dos los 
caballeros —Lewis Waterman y John W. Mollete— los que afirman 
ser inventores del juego. Stephen Kimmel, en un artículo publicado en 
la revista Creative Computing (julio, 1981, pág. 94) dice que para él es 
Waterman el que cuenta con más pruebas y argumentos a su favor ya 
que fue a él a quien primero le publicaran los pormenores de éste en 
una serie de artículos aparecidos en la revista The Queen (que estaba 
especializada en «asuntos de interés para las damas»). 

Independientemente de quién haya sido su creador, es un gran 
juego y este programa (basado en uno escrito por Graham Charlton) 
ofrece una fogosa defensa. Esta muestra es un ejemplo de las primeras 
jugadas de una partida cualquiera. 


* Othello es marca registrada de Gabriel Industries, Inc., USA, y Mine In- 
formation, UK. 
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Y aquí 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 


tenemos el listado de OTHELLO: 


REM Reversi/ODtelo 


GO0TO740 

PRINT "MI MOVIMIENTO..." 
S5=0: T=X: H=0 

FOR A=2 TO 9: FORB=2 TO 9 
IF A(A,B)<:*46 THEN 210 
Q=0 


FORC=-1 TO1: FORD=-1 TO1 

kK=0: F=A: G=B 

IFA(F+C0,6+D)<3S THEN 130 
kK=k+11F=F+0:3 G=G+D 

GOTO100 

IFA(F+C,G+D)<3T THEN 150 

Q=0+K 

NEXTD: NEXTC 

IFA=2 OR A=90K B=2 OR B=92THEN O=Qx2 
IFA=3 OR A=8 OR B=30R B=8 THEN O=0/2 


IF (A=2 OR A=9)AND (B=3 OR E=8)0K (A=3 OR Ax 


8)AND (B=2 OR E=9) THEN QO=0/2 


190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 

ZO 
330 
340 
350 
360 
370 
380 


IF Qí%H OR (RND(-1)<.3 AND QO=H) THEN 210 
H=02 M=A: N=B 

NEXTE: NEXTA 

IFH=0 AND R=0 THEN 690 

IF H=0 THEN 230 

GOSUB 580 

GOSUB370 

INFUT "CUAL ES TU MOVIMIENTO "¿KR 
REM SELECCIONA O FARA FASAR 
S=X:T=0:REM LETRA 0 

IF R=0 THEN 350 

IF Ridi OR R*88 THEN 260 

R=R+11 

M=INT(R/10) 

N=R-10*M 

GOSUBI80 

GOSUB370 

GOTO 30 

REM Imprime el tablero 

C=0: H=0 


O" O ¿Or O A O O 


O OL O O 


O 


O 


SO 4 0 


390 
400 
410 
420 
430 
440 
4530 
450 
470 
480 
490 
300 
10 
520 
SO 
540 
350 
360 
570 
3580 
390 
600 
610 
620 
630 
640 
630 
660 
670 
680 
690 
700 
710 
TIO 
E l ”" 
TEO 
740 
730 


760 
770 
780 


CLS:REM OR "HOME * 


PRINT 

PRINT " LA COMPUTADORA ES Xx" 
FPRINT " EL HUMANO ES 0" 
PRINT 

PRINT TAB()53"1 2 


343678" 
FORB=2 TO 9:PRINT B-1"  " 
FOR D=2 TO9 
PRINT CHR$(A(B,DI35" "5 
IFA(B,D)=X THEN C=C+1 
IFA(B,D)=0 THENH=H+1 
NEXT D 
PRINTB=1 
NEXTE 
FRINT TAB(35)53"1 234356 7.8" 
PRINT:FPRINT 
PRINT"COMPUTADORA: "C 
PRINT: PRINT"HUMANO: "H 
RETURN 
FORC=-1 701: FORD=-1T01 
F=Mi G=N 
IF A(F+C,G+D)32 3 5 THEN630O 
E=F+C16=G+D 


GOTOS600 
IFA(F+C,G+D)<>*T THEN 670 
A(F,6)=T 

IFM=F AND N=G THEN 670 


F=F-C16=6G-D: G0T0640 

NEXTD: NEXTC 

RETURN 

GOSUB37O 

IF C:H THEN FRINT"SOY EL CAMFEON!" 

IFH:C THEN FRINT"ERES EL MEJOR!" 

IF H=C THEN FRINT "ES UN CLARO CASO DE EMFAT 


END 
CELS 
X=ASC("X"):0=A5C0("0"):REM LETRA 0,NO CERO (0 


DIM A(10,10) 
FORE=1 TO 10:FOR C=1 TO 10 
IFB<%>1 AND C<1 AND E<*10 AND C<>10 THEN ACB 


¿L)=ASCO",.") 


o. oO 


O. O O 0 1 DO 10 O. 0-0 
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790 
800 
810 
820 
830 
840 
850 
860 
a870 
880 


NEXTC: NEXTE 
A, 0) =X:1A(6,6)=X 
A(6,39)=0:4(3,6)=0 


P=0 


FRINT"Quieres mover tu primero?" 
PRINT "S / N" 


INFUT Ws$ 

GOSUB 370 
IF W$="S" 
GOTOZ3O 


OR Wé="s" 


THEN GOTO 


260 
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cetro ao, 


AVENTURA 


Baja, lector, a la profundidad de las tinieblas. Armado tan sólo 
con tu ordenador y tu inteligencia has decidido enfrentarte a las fuer- 
zas del mal. 

Puedes encontrarte en una isla desierta, en una casa encantada, 
en un profundo calabozo cerca de las entrañas de la tierra o atrapado en 
un sistema de cavernas de un planeta perdido «en algún lugar de una 
galaxia lejana». 

Los juegos de AVENTURA tienen lugar en todos estos escenarios 
y muchos más. Ven con nosotros y descubre la emoción de los mundos 
de la AVENTURA. 


Se utiliza el término AVENTURA para describir una clase de 
juegos de ordenador en los que el jugador humano se mueve a través 
de una realidad alternativa. En este «otro mundo» hay monstruos que 
vencer, tesoros que descubrir, mapas que realizar y enigmas que re- 
solver. 

Para mucha gente los juegos de AVENTURA son los más emocio- 
nantes de todos los juegos que se pueden jugar con el ordenador. A 
quienes les gusten los juegos que exigen la adopción de un papel, estos 
juegos de aventura les resultarán todavía más divertidos. 

En este libro he incluido tres juegos de AVENTURA. Dos de 
ellos ofrecen una dificultad media y el tercero —un programa inmenso 
que ocupa más de 16K— le hará rascarse la cabeza a más de uno 
intentando descubrir qué es lo que está pasando en el programa. 
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Una característica de los verdaderos juegos de AVENTURA es 
que la realidad que construyen es una realidad consistente. Es decir, el 
mundo creado en el programa de aventura es sólido y, salvo ciertos 
acontecimientos específicos a cada juego, tales como un terremoto, O 
un encantamiento mágico, las partes de ese mundo no cambian al 
azar. Si atravesando cierto bosque se pasa ante «un retorcido olmo en 
cuyo nudoso tronco están grabadas las iniciales de su mejor amigo», el 
mismo olmo seguirá estando allí cuando uno vuelva a pasar. En una 
AVENTURA construida como es debido, los ríos permanecen en su 
lugar, los muros de la torre no se mueven misteriosamente y cambian 
de lugar cada vez que uno se vuelve de espaldas y los objetos que se 
depositan en una caverna dentro de un laberinto subterráneo, no apa- 
recen repentinamente cien cavernas más allá (a no ser que hayan sido 
bendecidos con alguna forma mágica de autotransporte). 

La realización de mapas es una de las habilidades del verdadero 
jugador de AVENTURAS para quien es además un deleite. Abrirse 
camino en un medio imaginario (pero consistente), luchar con mons- 
truos y encontrar tesoros, descubrir misterios al tiempo que uno sube 
y baja escaleras, salta, explora túneles, se pierde en laberintos y otras 
cosas por el estilo sólo es fascinante si el mundo que se está exploran- 
do puede traspasarse a un mapa. Por ejemplo, el jugador debería estar 
preparado para esperar que los dos extremos de un túnel aparezcan 
siempre en los mismos lugares, de modo que cuando más tarde, en 
otra partida y desde una posición diferente, vuelva a pasar ante una en- 
trada de ese túnel, tendrá una nueva clave para incluir en su mapa del 
entorno. Todos los «mundos» creados en los juegos incluidos en este 
capítulo pueden ser traspasados a un mapa y los dos primeros incluso 
ofrecen en ocasiones una visión de la escena desde arriba. El tercero 
no lo hace y es precisamente éste el último que debe atacar el lector. 
Sólo cuando esté seguro de que se puede mover como quiera a través 
de los dos mundos más simples, podrá meterse con el tercero. 

La adopción de un papel es una parte de la vida. No cabe ninguna 
duda de que en nuestra actividad cotidiana se dan no pocas situaciones 
en las que, hasta cierto punto, nos vemos obligados a adoptar un 
papel. En la mayoría de los trabajos esperan, por muy lamentable que 
sea esto, que uno se comporte como si las necesidades e intereses de la 
empresa fueran los suyos propios; como si el entusiasmo que uno 
demuestra un día tras otro ante clientes o compañeros de trabajo fuera 
un entusiasmo real, salido de lo más profundo de uno mismo. Es 
posible que uno encuentre que ante nuevas situaciones puede apren- 


der a actuar con dominio ocultando así su inseguridad; pero lo más 
curioso es descubrir que si se tiene cierta habilidad, la gente toma lo 
que no es más que un papel por la verdadera personalidad de uno. 

La adopción de un papel que tiene lugar en el medio imaginario 
del juego de AVENTURA es mucho más interesante; generalmente, 
el papel que se adopta en éste suele estar mucho más lejos del yo real 
y cotidiano de cada uno. En estos términos, hasta un juego como 
«Policías y ladrones» puede convertirse en un ejercicio fascinante de 
adopción de un papel. 

Así pues, todos hemos adoptado un papel alguna vez, aun cuando 
esto no nos resultara tan divertido como formar parte en una campaña 
para rescatar a un bello príncipe encarcelado en una torre. Las 
AVENTURAS que se ofrecen en este libro no son en modo alguno 
tan elaboradas como algunas de las que se ofrecen a la venta, pero, sin 
embargo, son más consistentes y están mucho mejor organizadas que 
la mayoría de las que yo he podido ver y además tienen la ventaja de 
que le ofrecen al lector una estructura, un marco en el que poder 
desarrollar sus propios programas de AVENTURA. 

Los juegos que exigen la adopción de un papel y en los que además 
participa más gente, no sólo un ordenador y un jugador humano, del 
tipo del «Mazmorras y dragones» de TRS, suelen desarrollarse, según 
va avanzando el juego, de un modo bastante flexible. Bajo el control 
de un buen guardián de mazmorra, un juego que exija la adopción de 
un papel por parte de los jugadores puede evolucionar en direcciones 
que los jugadores ni siquiera habían imaginado cuando fijaron el esce- 
nario inicial. Lamentablemente, los juegos de ordenador en los que el 
jugador adopta un papel no pueden ser tan flexibles. En muchos 
aspectos cuando se juega a un juego de aventuras con el ordenador, lo 
que el jugador hace es intentar resolver el enigma, o la serie de ellos, 
que ha creado la persona que hizo ese programa. Puede usarse el 
ordenador como una ayuda para fijar el escenario inicial y determinar 
dónde estarán localizados los objetos o, quizá, a dónde llevará una 
determinada escalera, pero es el programador al escribir el programa 
quien fija la forma general del mundo o del medio en que tiene lugar 
ese juego. 

En un programa como LA FORTALEZA DE LOS ENANOS se 
puede ver esto en acción. En este programa el jugador tiene que 
lograr salir de un laberinto para descubrir el lugar en que se oculta el 
tesoro de los enanos. Es cierto que el ordenador esconde el tesoro y 
que modifica, hasta cierto punto, el «laberinto 3-D», pero eso es todo. 
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Por supuesto, el ordenador se utiliza también para producir informa- 
ción para el jugador cuando el juego está ya en marcha y su labor en 
este punto es muy valiosa. 

Hubo una época en la que las guerras o batallas más conocidas se 
repetían una y otra vez, pero no en el verdadero campo de batalla, 
sino sobre la mesa. Las batallas napoleónicas se perdían y ganaban 
sobre un mapa en el que no faltaban los ríos y los bosques y sobre los 
que los jugadores repetían las principales contiendas o se inventaban 
unas nuevas. Posteriormente, los aficionados pensaron que estos jue- 
gos de la guerra podían ser todavía más divertidos si se le prestaba 
tanta o más atención a los combatientes individuales que a los peloto- 
nes de soldados. Esta atención en la identidad individual llevó directa- 
mente a los juegos que exigen la adopción de un papel que conocemos 
hoy, ya que los jugadores se dieron cuenta de cuán gratificador era 
adoptar el papel de un determinado líder. 

Los juegos de «Mazmorras y dragones» son el desarrollo directo de 
aquellos juegos de guerra en los que los jugadores adoptaban la identi- 
dad de las personas concretas que habían tomado parte en cada bata- 
lla. Dos de estos jugadores, Dave Arnson y E. Gary Gygax, decidie- 
ron codificar una realidad totalmente separada que inicialmente saca- 
ron a la luz en 1974 en forma de una serie compuesta de tres folletos a 
la que le dieron el título de Dungeons and Dragons (Mazmorras y dra- 
gones). El juego tuvo un éxito enorme y hoy se pueden contar por 
cientos de miles las personas que dedican una parte significativa de su 
tiempo libre a convertirse en duendes, magos, brujos o clérigos que se 
adentran en las profundidades de la tierra para explorar, luchar, con- 
quistar e incluso, a veces, morir, en su camino. 

A partir de la idea original de «Dungeons and Dragons» surgieron 
toda una multitud de otros juegos, como el «Runequest» (Chaosium 
Ltd., Albany, California), el «Bushido» y «Chivlary and Sorcery» 
(Fantasy Games Unlimited, Roslyn, New York), «Tunnels and Trolls» 
(Flying Buffalo, Inc., Scottsdale, Arizona), «Traveller» (Game Desig- 
ners” Workshop, Bloomington, Illinois) y «Heroes of Olympus» (Task 
Force Games, Amarillo, Texas). 

Will Crowther y Don Woods entraron a formar parte de la historia 
de la informática en 1976 cuando introdujeron el primer juego con 
adopción de papel —simplemente llamado AVENTURA— en un or- 
denador de la Universidad de Stanford. El programa lo había escrito, 
en realidad, Crowther, siendo elaborado posteriormente por Woods, 
pero hoy se les reconoce a los dos como los creadores de éste. Aunque 


el juego se puso rápidamente de moda en toda América, las compuer- 
tas no se abrirían hasta que el microordenador pusiera el poder de la 
máquina al alcance de millones de personas dando lugar a una verda- 
dera inundación de este tipo de juegos. Una memoria más barata 
facilitaba la creación de aventuras extremadamente elaboradas, de 
modo que hoy, el aficionado a los juegos de aventuras informatizados 
no puede quejarse de falta de programas, pues es uno de los campos 
mejor surtidos. 


Posiblemente Crowther y Woods no fueron del todo conscientes de 
que lo que habían creado era mucho mejor de lo que ellos suponían ya 
que incluso hoy, a pesar de la multitud de programas existentes en el 
mercado, el programa AVENTURA original sigue siendo la estrella. 
Actualmente son por lo menos cinco las compañías que venden, sólo 
para el Apple, versiones diferentes del AVENTURA original. 


Este programa original se escribió en Fortran y cuando pasó a 
formar parte de la biblioteca de libre intercambio de programas orga- 
nizada por la Digital Equipment Computers Users” Society (la mayoría 
de cuyos usuarios utilizaban los sistemas Dec's DCP-11), no pasó 
mucho tiempo antes de que llegara a ser el programa más utilizado. 
Dos años más tarde, otro programa de aventuras, Dungeon, pasó a 
formar parte de Decus. Este programa llevaba la idea de AVENTU- 
RA mucho más lejos que el de Crowther y sus autores eran Tim 
Anderson, Marc Blank, Bruce Daniels y Dave Lebling, todos ellos 
pertenecientes a la Programming Technology Division del MIT Labo- 
ratory for Computer Science. 

El libro de Addison y Wesley Apple Computer Software (editado 
por Jeffrey Stanton y John Dickey, The Book Co., Lawndale, Califor- 
nia, 1981) dedica 29 páginas a la descripción de juegos de fantasía, 
adopción de papel por parte del jugador, aventuras y guerra existentes 
para el Apple II. Si esta marca de ordenador está tan bien respaldada 
en este campo de la programación, lo mismo podemos pensar de otras 
conocidas marcas de ordenadores. 


Pero con todo y con eso, independientemente de todos los progra- 
mas de aventuras que se pueden comprar para ejecutar en los diferen- 
tes ordenadores, la emoción de crear programas propios también en 
este campo, el más peculiar quizá en lo que se refiere a la programa- 
ción de juegos, es una experiencia digna de tener en cuenta. Los 
programas incluidos en este capítulo le ofrecerán al lector, sin lugar a 
dudas, el marco apropiado para desarrollar los suyos propios. Lo que 
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yo le sugiero al lector es que los ejecute primero y después los elabore 
a su gusto (o al menos hasta que se le agote la memoria). 

Aunque parezca que las aventuras basadas en gráficos podrían 
llegar a desplazar a las basadas en un texto, la atracción que ejercen 
estas últimas no ha disminuido en absoluto. Así como la televisión no 
convirtió a la radio en algo obsoleto —porque la imaginación es mu- 
cho más fuerte que cualquier cosa que el hombre pueda crear— del 
mismo modo las aventuras gráficas no han quitado ningún valor a los 
juegos basados en un texto en los que la mente humana se dispara y 
produce mundos mucho más fantásticos que los que pudiera producir 
cualquier inteligente programador con la ayuda de los sofisticados 
gráficos existentes en las máquinas de hoy. 

Sin embargo, es probable que haya quien desee hacer la presenta- 
ción de la salida del texto de estos juegos más atractiva añadiéndoles 
color y sonido cuando vea que está preparado para hacerlo y utilizan- 
do las características peculiares de su máquina para que la diversión a 
la hora de jugar con ella a uno de estos juegos sea total. 

De las compañías que se dedican a la producción de programas, 
una de las más importantes a nivel internacional es Adventure Inter- 
national, que fue fundada por Scott Adams. En las exposiciones y 
ferias de la informática las exhibiciones que presenta esta compañía 
suelen ser las más imaginativas de las realizadas en el campo de la 
programación de juegos y, además, es bueno saber que sus programas 
son tan interesantes como la misma exhibición. No deje de experimen- 
tar el placer de ejecutar un programa de Scott Adams a su debido 
tiempo y verá lo lejos que se ha llegado en este género de programas. 

Conocí a Scott en Atlanta, en una feria de la informática y le 
encontré agradable, tranquilo y reservado” En cierto modo esperaba 
que se pareciera a uno de esos hechiceros que habitan sus mazmorras 
o a un dragón de los que aparecen en sus sistemas de cavernas. Hubo 
algo, sin embargo, que sobrepasó todo lo que yo hubiera podido 
esperar. Era el día Halloween y Scott y su equipo aparecieron todos 
perfectamente disfrazados como los personajes de uno de sus progra- 
mas. La misma visión de la vida que le hace decir a los miembros de 
su equipo que se disfracen para ir a trabajar, permeabiliza todos sus 
programas. Empiece con los programas que aquí se incluyen y que soh 
mucho más simples que los de Scott y después vaya intentándolo de un 
modo gradual con los comerciales. Posiblemente el programa de Scott 
Adams Adventureland sería el mejor para empezar con éstos, antes de 
pasar a otros del mismo Adams o de otras compañías. 


El programa de Avalon Hill, Empire of the Over-Mind, es otro de 
los clásicos en este campo y merece la pena echarle un vistazo. La lista 
podría hacerse interminable ya que cada vez son más los programas 
que se pueden añadir. En las revistas de informática o los clubs de 
programadores encontrará información relativa a los programas que 
van apareciendo en este campo. 


* * * 


Creo que ya ha llegado el momento de pasar a los tres programas 
que componen este capítulo. Si quiere profundizar en este campo, 
puede consultar-la amplia bibliografía existente, de la que además 
puede servirse a la hora de escribir sus propios programas. En esta 
bibliografía se incluye: 


— «Putting Adventure in Adventure Games», artículo en Creative 
Computing. Agosto 1981, por Robert Plamondon. 

— «Graphic Adventures on the Atari», artículo en Creative Compu- 
ting. Agosto 1982, por John Anderson. 

— «Fantasy Games», artículos en Creative Computing. Marzo y mayo 
1981, por David Lubar. 

— «An Adventure in small computer Game Simulation», artículo en 
Creative Computing. Agosto 1979, por Scott Adams. 

— «Kings of the Castle Walls», artículo en Practical Computing. 
Marzo 1982, por Dennis Ellis. 

— «Adventure Writing», boletín de 16 páginas editado por: Aard- 
vark-80, 2352 S. Commerce Walled Lake, MI 48088, USA. 

— «Fantasy Role-Playing Games», Holmes y Eric. Hippocrene Books 
Inc., New York, 1981. 

— «What is Dungeons and Dragons?». Butterfield, Parker y Honig- 
man. Penguin Books. New York, 1982. 

— «Dicing with dragons. An introduction to role-playing games». 
Livingstone, Routledge y Kegan Paul, London. Melbourne 
é Henley. 
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LA FORTALEZA 
DE LOS ENANOS 


Desciende, amigo lector, a las entrañas de la tierra donde se en- 
cuentra el reino de los enanos. El peligro se cierne a tu alrededor a 
medida que bajas, pero tu codicia te empuja hacia adelante. Cierto 
día, investigando entre los polvorientos montones de manuscritos sin 
catalogar de la sala 546B del Museo Británico, cayó en tus manos un 
mapa, casi ilegible, que conducía al oro atesorado por los enanos y 
desde ese día la idea de encontrarlo no ha dejado de obsesionarte. 

Según te vas adentrando en el laberinto te das cuenta de que los 
enanos que ocultaron el oro allí 7389 años atrás, han dejado de existir 
hace miles de años. Así pues, no es a los guardianes de la fortaleza a 
quienes has de temer, sino que el principal peligro lo supone el traza- 
do mismo del sistema de cavernas que has de atravesar antes de acari- 
ciar el oro. 

En la FORTALEZA DE LOS ENANOS el jugador se encuentra 
en la caverna que guarda el oro. Cada vez que se juega, el oro puede 


estar en uno de tres lugares diferentes. La única información con que 


cuenta el jugador en su avance a través de la caverna es la que le 
proporciona el Rayo Oráculo de los Enanos, ante el que pasa el inicio 
de su incursión en el sistema. Este le proporciona información sobre la 
localización del oro, pero el jugador ha de aprender a interpretar esa 
información antes de poder hacer uso de ella. 

Otro tipo de información se le ofrece en la forma de una clara 
exposición relativa a las direcciones hacia las que se puede avanzar 


desde la posición que se ocupa en ese momento. Después de cada 
movimiento o jugada («paso») en la pantalla aparecerá una informa- 
ción similar a esta: 


Acto seguido se le pedirá que introduzca la dirección hacia la 
que desea avanzar; como sigue: 


No se le permitirá, como probablemente se haya dado cuenta sin 
necesidad de decírselo, atravesar los muros. 

No es necesario decir que el objetivo del juego es llegar al tesoro 
lo más rápidamente posible. Para yudarle a lograr su objetivo, hay un 
mapa del sistema visto desde arriba; mapa que puede llamar de vez en 


101 


102 


cuando. El aspecto del mapa es el siguiente (los muros están marcados 
en 4 y el jugador es =): 


NORTE 
HRPORRRRRDOOS 
do RRBRER ARS 


: 

: 
ER z 
PRREERR OREA 
E. h 
RAROS A : 
¡de 

+4: 

: 

id 

HER 

+4: 

, 


HE 
did 


Hay dos trampas que merece la pena tener en cuenta antes de 
llamar para que aparezca el mapa. En primer lugar, éste se limita a 
indicar la posición del jugador sin decir nada de la localización del 
tesoro. En segundo lugar, cada vez que introduce la clave '*A” para 
echarle un vistazo al mapa, se le penaliza con 15 pasos. Conque le 
interesa utilizar esta opción lo menos posible. 

Aunque hay algunas características comunes a todas las cavernas 
generadas por este programa (dictadas por las instrucciones data de las 
líneas 870 a 960), la caverna varía cada vez que se ejecuta el progra- 
ma. Asimismo, como ya dije con antelación, el oro puede encontrarse 
en tres lugares diferentes dentro del sistema de cavernas. 

La salida del programa, tal como se ofrece en términos de las 
direcciones que uno puede tomar desde la posición en la que se en- 
cuentra, puede modificarse para producir una salida “laberinto 3-D”. 


O" O Y 


El jugador sabe, de una jugada a otra, en que dirección va y el 
ordenador sabe qué direcciones desde esa posición representan posi- 
bles jugadas O pasos. Es necesario añadir una subrutina que dibuje la 
situación inmediatamente, escogiendo entre una serie de imágenes 
(una con la zona que se extiende ante uno libre, pero con sólidos 
muros a los dos lados; otra con entradas hacia la derecha y hacia la 
izquierda, pero con el paso hacia adelante bloqueado) para producir 
una imagen continua de la escena. Esto puede ser muy efectivo, y 
efectista, y quizá merezca la pena proponérselo como ejercicio de 
programación. 

Y finalmente aquí está el listado de LA FORTALEZA DE LOS 
ENANOS de modo que ya puede lanzarse a la aventura en busca 
del oro: 


10 REM La fortaleza de los enanos 

ZO GOSUB 640 

20 GOSUB 480 

E 

HH AA ADE HE DAA 

O MuM+ 1 

60 CLS:PRINT:¿FPRINT 

70 PRINT"MOVIMIENTO NUMERO "mM 

80 FRINT 

90 FRINT "NORTE: "3 

1060 IFA(D+1,E)=S THEN FRINT "ABIERTO" 
110 IFA (D+1,E)=X THEN FRINT "MURO" 
120 PRINT "SUR: "3 

130 IFA (D-1,E)+=S5 THEN FRINT "ARTERTO" 
140 IFA (D-1,E)=X THEN FRINT "MURO" 
1530 PRINT "ESTE: 05 

1606 TIFA(D, E+1)=S5 THEN FRINT "ARIERTO" 
170 IFA(D, E+1)=X THEN PRINT "MURO" 
180 FRINT "OESTE: "5 

190 IFA(D,E-1)=5 THEN FRINT"ABRIERTO" 
200 IFA(D,E-1)=X THEN FPRINT "MURO" 
210 FRINT 
220 PRINT "EL RAYO ORACULO DE LOS ENANOS INDICA 


230 PRINT 100*ARBS (2-D)+10* ABS (YE) 
A 
MMMM MIA 


O. O 0" 0 0-0 


O 


103 


O 


104 


250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
OO 
410 
420 


FRINT:¿FRINT:¿FRINT 

FRINT"EN QUE DIRECCION QUIERES" 
FRINT"MOVERTE?" 

PRINT:FPRINT"N — Norte, S — Sur" 
PRINT"E -— Este, O - Oeste, A - AYUDA" 
INFUTAS 

IFA$="N" AND A(D+1,E>)=X THEN 300 
IFA$="S5" AND A(D-1,E)=X THEN 300 
IFA$="E" AND A(D, E+1)=X THEN 2300 
IFA$="0" AND A(D,E-1)=X THEN 300 

IF A$="A" THEN GOSUB 480 

IF A$="N" THEN D=D+1 

IF A$="5" THEN D=D-1 

IF As$="E" THEN E=E+1 

IF A$="0" THEN E=E-1 

IFZ=D AND Y=E THEN 430 

GOTOSO 
A 


KI EE E IE E FE 


430 
440 
450 
460 
470 


PRIN 

PRINT" EN TAN SOLO "M" MOVIMIENTOS!" 
GOSUB 300 

END 


REM III IE TE IE IE DEE IE A E EI IE EH JE 


HI IE IE IE TE dE E 


480 
490 
500 
310 
Ud) 
SO 
340 
O 
360 
370 
380 
390 
600 
610 
620 
630 


REM auxilio 

CLS 

FRINT 

FRINT"NORTE" 

FORB=13 TO1l STEF-1 

FORC=1 TO 153 

IFA(B, C)=X THEN PRINTURSUS 

IFE=D AND C=E THEN FRINT"*" 32 GOTOS7ZO 
IFA(B,C)=S5 THEN FRINT" "5 

NEXTO: PRINTS NEXTE 

FRINT"SUR" 

M=M+153 

FORJI=1 TO 2000: NEXTJ 

ELS:A(D,E)=S 

RETURN 
ES 


RS 


640 


CLS 


o. o 


OOO OoOoOo Oo 


E O A 


O 


O 


O 
O 
O 
O 


| 
| 
! 
¡ 
4 
¡ 
¡ 
Í 
t 
l 
| 
! 
| 
| 
1 
J 
? 
| 
i 
4 
i 
i 
l 
| 
l 
| 
| 
i 
i 
¡ 
[ 
! 
' 
| 
| 
| 
| 
| 
t 
l 
l 
l 
! 
! 
' 
| 
l 
l 
1 
! 
1 
| 


630 
S60 
670 
680 
490 
TO 
710 
VAR) 
TO 
TAO 
TO 
760 
770 
780 
TOO 
800 
810 
Bo 
830 
840 
830 
860 


N=d:PRINT"APRIETA CUALQUIER TECLA" 
N=N+1s 1 INEEYS$=" "THEN 660 
CLS:FRINT"ESPERA UN MOMENTO. ..FOR FAVOR" 
RANDOMIZE 

DIMA (15, 15) 

Ets INT (RIND (NN) 3) +1 

Z=143 Y=14 

IFB=2 THEN Y=2 

IFB=3 THEN Z=2 

X=119=2 

FORB=1 TO 15:FORC=1 TO 15 

A(B,0)=X1 IERND (UN) >.8 THEN A(B,0)=3 

IFC<2 OR 014 ORB<2 ORB>14 THEN A(B,C)= X 
NEXT CC: NEXT B 

D=21E=2 

FOR F=1 TO 68 

READ B:READ € 

A(B,C)=S 

NEXT EF 

M=-15 

RETURN 

REM Ae e de dE de dE E ds DE DE JE DE E DE dE dE dE HE E DE E E JE E E JE JE E dE E dE 


E AS 


870 
880 
890 
S00 
910 
920 

3O 
940 
950 
960 


DATA 2,2,2,3,2,4,2,5,2,6,2,7 
DATA 3,7,4,7,5,7,5,6,5,5,5,4,5,3,6,3 

DATA 7,3,7,4,7,5,7,6,17.7,7,8,7,7,9,8 

DATA 9,9, 10,8,10,7,10,6,10,5,10,4,8,8 

DATA 10,3,11,3, a Ra 10 
DATA 6,10,5,10,4,105: 10. 2,10, 2% 11,2, 0 
DATA 2,13,2,14,6,11,6,12,6,13,6,14,7,12 
DATA 14,12,8,12,8,14,9,12,9,13,9,14,10,12 
DATA 11,9,11,10,11,11,11,12,12,9,13,9,13, 10 
DATA 13,11,13,12,13,13,13,14,14,14 
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EL DUQUE DE DRAGONFEAR 


En este juego se introduce al jugador en otro intrincado mundo de 
cavernas subterráneas, pero a diferencia del anterior, éste está habita- 
do por toda una extensa gama de pavorosas posibilidades como pozos 
de arenas movedizas y dragones y por otras no tan pavorosas, como 
cuevas mágicas que pueden transportarle a uno a la aventura de un 
lugar a otro del País de los Dragones, y cuevas repletas de oro. 

Nada más empezar a ejecutar el programa, se le ofrece al jugador 
la siguiente información: 


es explorar las 
is de este mundos buscando 
Tesoros, e Intentando evitar los 
Terribles dragones que pueblan estas 
Cavernas, Lomo te llamas * 


De acuerdos Duque JAVIER 


Enplezas esta exploracl 
Con 23 unidades de carloas y 
mos terninar la tarea antes 
El agote. Al o 
ada noviniento que hagas 


Una vez asimilado esto, el jugador puede echar una rápida ojeada 
al mapa del País de los Dragones: 


En este mapa, la X representa un muro que no se puede atravesar 
o una cueva a la que no se puede acceder; H (de «humano») represen- 
ta al jugador que inicia su aventura más o menos en el centro del 
sistema; $ son las cuevas del tesoro; ? representa las cuevas en las que 
el jugador es mágicamente transportado y Q le indica qué cuevas 
contienen arenas movedizas. Está claro que en este mundo abundan 
tanto los placeres como los peligros potenciales. 

Los que sean ya veteranos en esto de los juegos de ordenador, se 
darán cuenta en seguida de que este juego, EL DUQUE DE DRA- 
GONFEAR, es el desarrollo de los ¡juegos denominados Hunt the 
Wumpus. Wumpus es uno de los grandes y más antiguos estándares de 
la historia de los juegos de ordenador en los que el jugador se encuen- 
tra en un sistema de cavernas a la búsqueda de uno o varios animales 
míticos conocidos en singular como Wumpus (y éstos suelen ser ani- 
males bastante singulares); el plural es Wumpii, O al menos eso dicen 
quienes se preocupan por esas cosas. Sea como fuere, en este tipo de 
juegos lo que se hace esencialmente es fijar una especie de red o 
cuadrícula y los objetos, personas, efectos, monstruos o lo que quiera 
que se escoja, están situados en diversos lugares de esta cuadrícula. De 
vez en cuando, y siempre que el programador del juego lo decida, uno 
o varios de los contenidos de una cuadrícula determinada pueden 
moverse a otras. Por supuesto, el jugador humano también puede 
moverse de una cuadrícula a otra. 
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Generalmente, no existe un mapa visible de todo el sistema, aun- 
que algunos programas (como EL DUQUE DE DRAGONFEAR) sí 
que proporcionan este tipo de información al jugador. El primer pro- 
grama Wumpus apareció en 1975 y se debe a Gregory Yob. En el 
maravilloso libro de David Ahl More BASIC Computer Games 
(Creative Computing Press, Morristown, New Jersey, 1979), el señor 
Yob explica que en cierta ocasión que se encontraba de visita en el 
People's Computer Company, en Menlo Park, California, para ver los 
programas que estaban desarrollando, vió que se estaban escribiendo 
en ese momento tres programas diferentes del tipo de «caza algo» 
cada uno de ellos en una red de 10 Xx 10 y en cada uno de los cuales se 
le proporcionaba información al jugador en términos de «no, no... 
inténtalo hacia el noroeste». 

Desencantado, el señor Yob volvió a la triste terminal que compar- 
tía (eran días aquellos, mi querido lector, en los que los seres humanos 
no tenían pequeños ordenadores a su disposición) y no dejó de marti- 
llearlo hasta que consiguió el programa que con el tiempo se converti- 
ría en el primer «Hunt the Wumpus». El señor Yob hizo que la 
criatura habitara un sistema de cavernas de forma dodecaédrica. 

El genio inventivo del señor Yob no se detuvo aquí. Posteriormen- 
te pobló el sistema con «animales mágicos» que transportaban al juga- 
dor al azar de un lugar a otro dentro del sistema, con pozos sin fondo 
y se aseguró de que las flechas con que se equipa al jugador antes de 
iniciar Su aventura pudieran girar en su vuelo. 

El lector podrá darse cuenta ahora de cómo esta estructura se 
convirtió en el corazón de los programas Wumpus que han proliferado 
por todo el mundo y de que, en efecto, constituye el armazón básico 
sobre el que está construido EL DUQUE DE DRAGONFEAR. Este 
programa le ofrece más control sobre la salida del programa, añade 
tesoros a algunas de las cavernas e impone un límite de tiempo al 
juego. 

Asimismo, el jugador está equipado con un «amuleto mágico» 
que puede ver lo que hay en las cavernas que le rodean. Lamentable- 
mente, como el jugador no es una persona experta en esto de los 
encantamientos mágicos, el viejo amuleto no funciona todo lo bien 
que podría. Sólo le dice el contenido de una de las ocho cavernas que 
rodean a la caverna en la que se encuentra y, lo que es peor, no le dice 
a cuál de ellas se está refiriendo. En realidad, no está tan mal como 
parece y el jugador se quedará sorprendido al ver todo el uso que 
puede dar a la limitada información que le proporciona el amuleto. 


Además de esto, al inicio del programa se le ofrece una rapidísima 
visión del sistema de cavernas tomado desde arriba; esta visión se 
repite alguna que otra vez a medida que avanza el juego. 

Como puede ver en la muestra de ejecución que acompaña a esta 
introducción, entre las opciones que se le presentan antes de cada 
jugada, hay una opción *L” para luchar. Al presionar**L” el programa 
se dirigirá a la subrutina que comienza en la línea 930 que verifica si 
todavía le quedan flechas y si comprueba que le quedan, le permite 
escoger la dirección en que quiere lanzarla partiendo de la posición 
que ocupe en ese momento. Si logra matar algún animal conseguirá 
una buena recompensa monetaria. 

A continuación le ofrecemos algunas jugadas del programa en ac- 
ción: 


cUque JAVIER: estais en la cueva 35 
Tu Anuleto ños ALS 

de ¡EN 

Un dragon 


en las proximidades 


Us quedar aun 23 unidades de Carisma 


Due querels hacer? 


No Portas E - sur 
E - estes 0 - oeste 
L= luchar contra el Dragon 
T - terninar el juego tor ares enelizas! 
7H Horror, arenas movedizas! 
| dorror, arenas movedizas! 
Horror, arenas movedizas! 
Horror, arenas movedizas! 
Horror, arenas Mowedizas 
Horror, arenas movedlzas! 
dorror, arenas movedizas! 
Rorror, arañas novedizas! E 
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lo Tu Anuleto nos nuestra 
que hay 

== Un dragon 

| l en las proximidades 


Ds quedan aun ¿4 unidades 


LJ) Que querels hacer? 

| N - hórtes 3 = Sur 

L - luchar contra el Dragon 
T - terninar el juego 


la els 100 a parir 0, 


Duque JAVIER» estais en la cueva 


11d de un 


4 


sto 


| | 
A, dragon... Preparad ves de oraciones 

3 asta des pertando.s. A ¡EN 
e ' ahora se dis 15Pone 3 atáciPrso 
l 
ll 

Horror, arenas movedizas! 
a Horror, arenas movedizas! 
| | Horror, arenas movedizas! 
——! Horror, arenas movedizas! 
Horror, arenas movedizas! 
Todo tu carisha esta 

[ lar ¿9O0ÍAdO vers 
| 
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de Carisma 


1 
EA 
of 
Loa 
ES 
Loa 
Loa 
y 
O 
' 
ns 
Y 
14h 
n 
LN 
1 Ñ y 
ú ¡ 1 


E 


pra ad 


a 


Y ahora, el listado que le permitirá convertirse en el Duque de 
Dragonfear: 


O 


10 REM El duque de Dragonfear 

20 GOSUR 1280 

30 CLS:¡FRINT:¡PRINT:PRINT 

40 GOSUB1200 

30 Q=INT (RAND (-N)*7) 

60 1IFO=0 AND Ex +53 THEN GOSUÉE 1200 

70 CLS:PRINT:FRINT:FRINT"Duque "A$", estais en 
la cueva"E 

80 IF G:0 THEN FPRINT "Llevais oro por valor de 
$"G 

90 GOSUB760 

100 PRINT:FRINT"OS quedan aun "23-H" unidades de 
Carisma" 

110 FRINT:FRINT"Que quereis hacer?" 

120 PRINT"N — norte, S — sur" 

130 PFRINT"E -— este, 0 - oeste" 

140 FRINT"L —- luchar contra el Dragon":¿FRINT"T - 
terminar el juego": FRINT 

150 INPUT Z$:U=0Or% IFZ$<%"N"ANDZS$<:"S"ANDZ$< "E" AN 
AMO MANDZ LG ULUANDZ$ ZU TU THEN 150 

160 IFZ$="N" ANDA (E-10)=88 OR Z$="S" AND A(E+10) 
=88 OR Z$="E" ANDA(E+1)=88 OR Z+$-=:"0" AND A(E-1)=88 
THEN FPRINT "No puedes ir en esa direccion! !":GOTO1l 
S0 


O. E TO. Y 


>) 
N 
bl 


170 1FZ2$="T"THENO=9 :60TO1170 

180 A(E)=46:1FZ7$="N" THEN E=E-10 

190 1F2$="S"THENE=E+10 

200 IFZ$="E"THENE=E+1 

210 I1FZ$="0"THENE=E-1 

220 IFZ$="L."THENGOSUBIZO 

230 IFA(E)=63 THEN GOSUB 310:REM Magia 

240 IFA(E)=68 THEN GOSUB 400:REM Dragon 

230 IFA(E)=81 THEN GOSUB 530: REM Arenas movediza 


E - 0 DO CEL O O 0 O O O 


O 


O 
¡o 


260 IFA(E)=36 THEN GOSUB 630:REM Oro 
270 H=H+11 1FH=23 THEN (=9:G0OTO1160 
280 GOSUBI610 

290 GOTOSO 


O 


O 


111 


O 


112 


FOO REM er dd 6 dE DD E HE 
MMMM 

310 REM MAGIA 

320 PRINT:FRINT"Duque "A$", habeis caido" 

330 PRINT" en una cueva magica, y ahora " 

340 PRINT"sereis transportado a Otra ..." 

3390 GOSUBIS10 

360 A(E)=44 

370 Ex=INT(RND (-N)%*76)+12: IFA(E)=88THEN 370 

380 RETURN 

A 
HN MIRA 

400 REM Dragon 

410 PRINT"Habeis ido a parar al nido de un" 

420 PRINT"dragon...preparad vuestras oraciones " 

430 GOSUB1610 

440 M=RND(-N):1FM<.2 THEN PRINT"Se ha ido voland 
o": RETURN 

4530 PRINT"Se esta despertando... y te ha visto " 
: GOSUB1S10 

460 GOSUB1610 

470 IFM:,8499999 THEN PRINT"Fero ha comido hace 
poco":FRINT"Asi que se vuelve a dormir": RETURN 

480 PRINT"Y ahora se dispone a ataca..." 

490 GOSUB1610 

500 1FM>.935 THEN FRINT"Fero luchas... y le vence 
s!!!":RETURN 

510 PRINT"Adios, Duque "As 

520 GOSUE 1610 

530 0=9:60T01160 

540 REM 0 6 
e EHH IE A 

39590 REM Arenas movedizas 

560 FORIJ=1T012 

570 FORE=1 TO J¿FRINT" "5:NEXT 

580 PRINT"Horror... arenas movedizas!" 

390 FORO=1T0902 NEXT 

600 NEXT 

610 QO=9:H=0:G0T011060 

GRO REM rr Hd dd E A A 
MMMM MR RE 

30 REM Tesoro 

640 K=INT (RND (N)*100)+100 


o o 


O 00. DO - 0 E LD ¡0 0 


O 


O 


O E O 


630 
660 
670 
4680 
690 
700 
710 
730 
T73Ó 
740 
7350 


FOR =1T012 

FORZ=1TOJ:«PRINT" "3:NEXT 

PRINT"Un tesoro ! ! 1” 

FORO=1T0200: NEXT 

NEXT 

GOSUB1610 

PRINT:FERINT"Has encontrado un cofre del" 
FRINT"tesoro del dragon, valorado en $"Kk 
GuG+K 

RETURN 

ELE A A MDI MA DEE EII MRE AE 


HR II IE E IE IE IE II IE E 


760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 


REM Detalles del Amuleto 

Yi, 

LA (E-E (Y) 

11.246 THENSB2O 

1FY:28 THEN Y=Y+1:60T0780 

1FL.=46 THEN RETURN 

PRINT"Tu Amuleto nos muestra" 
PRINT"que hay" 

1F1.:88 THEN PFRINT" Un muro solido" 
IFL=63 THEN FRINT" Una cueva magica" 
1FL*=68 THEN PRINT" Un dragon" 

1FL=81 THEN FRINT" Arenas movedizas" 
IFL=36 THEN PRINT" Oro" 

FRINT" en las proximidades" 
GOSUB14610 

RETURN 

REM AA dd dE dd MM E A Al MEM DAME E E IAE 


MH IE E E E EE E E JE IE JE 


30 
940 
950 


REM Ataque del dragon 
PRINT 
AR=AR—-1: IFAR=0 THEN FRINT"Has usado todas": F 


RINT"tus flechas... .":1G0SUB1610: RETURN 


960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 


FRINT"Tienes "AR" flechas todavia" 

58=0 

PRINT" en que direccion quieres" 
INFUT"disparar (N,S,E,0)"15% 

IFS$="N" AND A(E-10)*=68 THEN SS=1: YT=E-10 
1F5$="5" AND A(E+10)*=68 THEN SS=1:YT=E+10 
IFS$="E" AND A(E+1)=68 THEN SS=1: YT=E+1 
IFS$="0" AND A(E-1)=68 THEN SS=1: YT=E-1 
FRINT 


o o 


O O 0 CD 20 O 0. 6 00 0-0 


O 


O 
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O 


1030 


1IFSS=0 THEN FRINT "No hay ningun dragon en e 


sa direccion..." ¿FRINT"Has malgastaso una flecha": 
G0TO1150 


1060 
1070 
1080 
1090 
1100 
1110 


FRINT"Bien hecho, Duque "As 

FRINT"Le has dado" 

FRINT "a un feroz dragon" 

GOSUB1I610 

IFRND (AN). THEN1140 

FPRINT"Le has matado! ":A(YT)="46: k=INT (RND (-N) 


*100)+100 


1120 
1130 
50 
1140 
1150 
1160 


Toa... 


1170 
via" 
1180 


FRINT 
FRINT"Eres recompensado con $"EK:6=6+EK:G60T011 


FRINT"Fero solo le has herido...” 

GOSUB 1610: RETURN 

IFH21 THEN PRINT" Todo tu carisma esta" ¿FRIN 
«agotado... .":G0OSUB1610:G60T01180 
FRINT"Tienes" 23-H" unidades de carisma toda 


IFG:0 THEN FRINT"Has amasado una fortuna de 


$"G"en oro" 


1190 FRINT:¿FRINT 

1200 A(E)=72 

1210 FORJ=1 TO 100 

1220 PRINT CHR$(A(IJIJ)3" "5 

1230 IF 10*INT(J/10)=J THEN FRINT 

1240 NEXT 

1230 FOR Q=1 TO 1500: NEXT: GOSUB1610 

1260 1FO=9% THEN END 

1270 RETURN 

1280 CLS: PRINT:PRINT:FRINT 

1290 PRINT"Bienvenido al mundo terrorifico de los 
dragones" 

1300 PRINT:FPRINT"Tuúu mision es explorar las" 
1310 PRINT"Cavernas de este mundo, buscando" 
1320 FRINT"Tesoros, e intentando evitar los" 
1330 PRINT"Terribles dragones que pueblan estas" 
1340 PRINT"Cavernas. Como te llamas "; 
3590 INFUT As 

1360 CLS:PRINT:FPRINT" De acuerdo, Duque "As 
1370 PRINT:FRINT"Empiezas esta exploracion" 
1380 PRINT"Con 25 unidades de carisma, y" 
1390 PRINT"Debes terminar la tarea antes" 


O. 0. O ¿O 0-0 


¡CE SS E 


O 


O 


1400 PRINT"De que se agote el carisma. Fierdes" 


1390 REM FONGA EL TECLADO EN MAYUSCULAS 
1600 REM ANTES DE COMENZAR A JUGAR 
1610 FORO=1 TO S00: NEXT: RETURN 


| 1 
O! 1410 PRINT"U - imi O 
DEN na unidad por cada movimiento que hag 
(Cas I 
(1420 N=1:¿PRINT:PRINT"APRIETA CUALQUIER TECLA PARA |! 

O 1 EMPEZAR" ¡O 
¡1430 N=N+1: 1F INKEY$="" THEN 1430 
| 1440 RANDOMIZE:CLS : 

O 14530 PRINT"Un momento, por favor, Duque "As ¡ O 
1460 DIMA(100):H=0:0=0: L=0:6=01 AR=6 
y 1470 FORB=1 TO 100:A(B)=46 : 

O ¡1480 1F Bx12 OR E 390 OR 10x*INT(B/10)=B OR 10x* INT 1 O 
l (B/10)=B-1 THEN A(B)=88 | 

1490 NEXT O 

O 1500 FOR B=1 TO S:RESTORE:FORD=1 TO 5 e 
lo 1510 Z=INT(RND(=N)*76) + 12: 1FA(Z)=88 THEN 1510 

o! 1520 READ C :A(Z)= C LO 
| 1530 NEXT:NEXT | 
| 1540 DATA 88,63,68,81,36 

O | 1550 FORB=1 TO B:READ Z:P(B)=Z:¿NEXT : O 
y 1560 DATA-11,-10,-9,-1,1,9,10,11 
1570 Ex-S3 
| 580 RETUR 

O | 1580 RETURN | O 
3 t 
' l 

| 
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EL LEGADO BANNOCHBURN 


Como indicaba al inicio de este capítulo, cuando uno escribe un 
programa de aventuras, lo que en realidad está haciendo (si lo está 
haciendo como es debido) es construir una realidad alternativa con sus 
propias reglas y consistencia interna. En un programa de aventuras 
que se atiene a las reglas, un objeto situado en una habitación perma- 
necerá en ella hasta que el jugador lo mueva, los muros de la casa 
encantada que se está explorando no se moverán y cambiarán de lugar 
cada vez que uno les vuelva la espalda y los arroyos y los ríos no 
cambiarán su curso cada vez que el jugador decida atravesarlos. 

El siguiente programa y el último de este capítulo, EL LEGADO 
DE BANNOCHBURN, está mucho más cerca de los programas de 
aventura estándar que comentaba en la introducción a este capítulo. 
En este programa todas las actividades (excepto el principio) tienen 
lugar en el castillo de Bannochburn. El castillo contiene una cantidad 
no determinada de monstruos, entre los que se incluyen un «malhu- 


morado hechicero» y «la terrorífica criatura» que respira fuego, que 
vagan de un lado al otro del castillo durante todo el juego esperando 
que se les presente la ocasión de caer sobre el jugador para partirlo 
por la mitad. El castillo contiene asimismo botellas de poción mágica, 
arcones con buenas y malas sorpresas, papiros con encantamientos 
mágicos escritos en ellos y muchas cosas más. Si dijera ahora todo lo 
que el jugador puede encontrar, el juego perdería interés. 

No es muy probable que en una sola partida se encuentre con todo 
lo que contiene el castillo. Asimismo, los monstruos tienen diferentes 
poderes cada vez que el jugador se enfrenta a esta aventura (es decir, 
cada vez que se ejecuta el programa) y los arcones y cofre dorado, 


junto con el resto de los contenidos mágicos, se encuentran en diferen- 
tes lugares. Aunque los monstruos andan vagando de una estancia a 
otra del castillo, no sucede lo mismo con el resto de las cosas que éste 
contiene: no pueden aparecer y desaparecer al azar. Una vez que el 
jugador ha abierto el arcón número dos, no lo volverá a ver otra vez 
durante esa partida. Si hiere a un monstruo en combate, y vuelve a 
encontrarse con él posteriormente en la misma partida, verá que éste 
sigue herido. Cosas de este tipo ayudan a formar la «realidad» del 
universo ficticio. 

El jugador no cuenta con un mapa del castillo. Una gran parte del 
placer que producen los juegos de aventura radica en el hecho de 
tener que descubrir cómo se relacionan unas partes del «universo de la 
aventura» con las otras y la realización de mapas es una de las técnicas 
cuyo desarrollo más divertirá al jugador. El castillo de Bannochburn 
fue cuidadosamente traspasado a un mapa antes de escribir el progra- 
ma con el fin de asegurarme de que las estancias estaban situadas de 
un modo coherente y para animar al jugador a que realice su propio 
mapa del castillo a medida que lo explora. Una vez que el jugador se 
haga con un mapa razonablemente trazado, lo más seguro es que 
quiera comprobarlo paseándose por todas las estancias del castillo. 

El objetivo del juego es dar con la Laguna Negra que está situada 
bajo el castillo, pero a la que se accede por una puerta normal desde 
el interior de éste. La situación de la Laguna Negra puede cambiar de 
una partida a otra, pero no cambiará de lugar una vez que la partida 
está en marcha. Esto asegura que el interés del jugador se mantendrá 
durante toda la partida, incluso después de que se las haya arreglado 
para levantar el plano del castillo. 


Al inicio del juego se le otorgan al jugador tres atributos: 


Magia - Fuerza - Inteligencia 


El jugador juega toda la partida en términos de estos tres atribu- 
tos, escogiendo para combatir cada monstruo aquel en el que se sienta 
más fuerte o en el que ese monstruo en particular sea más débil. 

Los atributos cambian y se desarrollan a medida que avanza el 
juego, aumentando cuando el jugador gana una batalla y disminuyen- 
do cuando la pierde. 

Nada más empezar a ejecutar el programa, se le ofrece al jugador 
la siguiente información: 
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estas a la entrada de Un 

antiauo castillo de 

Impresionante aspecto, Estas en 

el lado norte del castillo 

yal mirar hacia el sur, hacia 

la solida estructuras Le 

dis cuenta de que el portal de entrada 
esta ablerto y sin guardia 


La última pregunta “¿Qué quieres hacer ahora?”” aparece después 
de la mayoría de las descripciones de las estancias y el jugador ha de 
dar una de las siguientes respuestas: 


— N (ir hacia el norte). 

— S (ir hacia el sur, ésta es la respuesta que tendría que dar en 
el caso de la primera información que hemos visto unas 
líneas más arriba). 

— E (ir hacia el este). 

— O (ir hacia el oeste). 

— L (luchar; ésta es una de las dos respuestas posibles que el 
jugador puede dar al verse enfrentado a un monstruo). 

— H (huir; ésta es la otra respuesta posible y no siempre es 
aceptada; '“No, you must stand and fight”, le dirá el 
ordenador. '"No, has de quedarte y luchar”. 

— T (me rindo; ésta se usa en el caso de que el jugador quiera 
dar por terminado el juego antes de llegar al final). 


La única respuesta que necesita en el caso de preguntas del tipo 
'*Quieres abrir un arcón?”, es “S” (sí) o '"N” (no). 


En gran medida este programa se ejecuta solo y vigila muchas de 
las tareas que en un juego de adopción de papel en el que interviniera 
más gente vigilaría un guardián de mazmorra. 

Una de estas tareas es la ejecución de las batallas o melés que 
tienen lugar durante el juego. Todas las luchas se solucionan de acuer- 
do con la fuerza relativa de los protagonistas de la batalla y basándose 
en el resultado del lanzamiento de un dado contrapesado a favor del 
más fuerte de los dos contrincantes en lucha. Así pues, el jugador 
humano deberá seleccionar siempre el atributo con el que aventaja al 
monstruo, con lo que aumentará sus posibilidades de ganar esa batalla 
concreta. 

Habíamos dicho antes que el objetivo del juego era llegar a la 
Laguna Negra, pero a esto habría que añadirle «con vida». Una vez 
que ha alcanzado la Laguna Negra, el jugador ha de luchar tres veces 
contra el guardián de ésta, una con cada atributo, teniendo que acabar 
esta lucha en tres partes con un total de 10 puntos por lo menos. El 
dinero que el jugador va recogiendo en sus correrías por el castillo, 
puede utilizarlo, justo antes de la lucha final, para comprar más pun- 
tos para sus atributos. 

No quisiera que el proceso de descubrimiento del juego por parte 
del jugador quedara menoscabado, por eso no daré mucha más infor- 
mación aquí. Todo lo que puedo hacer es asegurar al lector que el 
trazado del castillo es coherente y puede ser traspasado a un mapa y 
que merece la pena tomarse la molestia de intentar descubrirlo. Ob- 
serve que este programa ocupa más de 16K, de modo que en el caso 
de algunos sistemas, lo más probable es que haya que acortar las 
sentencias PRINT, asegurándose al mismo tiempo de que se deja 
espacio de trabajo, así como espacio para la longitud del listado. 

La historia de «Bannochburn Castle» es sencilla y trágica al mismo 
tiempo. En la famosa Guerra de los Clanes, que asoló el norte de 
Escocia durante los últimos años del siglo XV, el señor de Bannoch- 
burn contrató los servicios de Wee Sporran McMerlin, un mago que 
originalmente había estado al servicio del rey Jaime en la Corte de 
Edinburgo. Cuando el sangriento Clan de los McKinna unió sus fuer- 
zas a las del no menos sangriento Clan de McClaren y juntos atacaron 
Bannochburn, el señor de éste pidió a McMerlin que hiciera un hechi- 
zo que protegiera el castillo para siempre. 

Lamentablemente, la inteligencia de Wee Sporran no era tan bri- 
llante como su magia y, en vez de invocar un hechizo que cuidara de 
sus habitantes, lo que hizo fue conjurar el ataque para proteger el 
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castillo. El señor, sus servidores y partidarios fueron asesinados, pero 
el castillo permaneció intacto sobreviviendo hasta el día de hoy. La 
misión del jugador ahora es explorarlo e intentar rescatar los secretos 
y el oro que oculta matando para ello al Guardián de la Laguna 
Negra, de modo que los actuales miembros del Clan Bannochburn 
(que ahora viven en Glasgow en un pisito sobre una tintorería) puedan 
recuperar la herencia que les pertenece. El jugador sentirá —y posi- 
blemente con razón— que éstos se han de sentir sumamente agradeci- 
dos con él si logra matar al guardián liberando así al castillo de los 
fantasmales habitantes que hace tantos años introdujera Wee Sporran 
dentro de sus muros con la idea de protegerlo. 

Observe que una vez que ha entrado en el castillo, no hay modo de 
retroceder. No puede volver a salir por la entrada principal, de modo 
que no se lo puede pensar dos veces. Toda la información se introduce 
en mayúsculas, así que el jugador habrá de asegurarse de que su 
ordenador está funcionando con mayúsculas antes de ejecutar el pro- 
grama o de lo contrario, el ordenador ignorará toda esa preciosa 
información. 

Buena suerte, lector, y quiera Dios que el Guardián caiga derrota- 
do antes tus grandes poderes. 

Y aquí están unos cuantos ejemplos del programa en funciona- 


miento: 
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Este es el Salon nas suntuose 
del castillo, el Gran | Sal Lon» 
cal un impresionante te cho 


Es 
mn 
mu 

MT 

a 

eS 

mz 


la! abrado Puedes salir pOr las puertas 


deb las da Le 0 par 

las del e tras las cuales 

At Un dl de musica, 
traves de las vent: de del muro 

desa puedes ver el Jardin 

de los Contornos, EE 3113, 

las ventanas de U ME habitacion con 

huchaz A De pl nburas vaio 35 


pra Le enemigo de cuantos entran el castil 
E El de Wolylin md el donhra- Lobo, com 


q Tuerza e E 
ME sabiduria de 
Y Una Capacidad magica de 


| 


¿ 


Que quieres hacer ahora? hi 


En frente Luyo hay un cofre 


etiquetado cOn un gran $] 


l 


0 


121 


122 


Un estrano huno surge 


haciendo que Le duernas y 
apoder andos ¿E de tus poderes Ma91c05 
En la pared hay Uña Dequena caja fuerte dorada 


y a su lado hay una Llaveros, 


% 


Duleres abrir la caja fuerte! 


Mai 


ad 16 


Eres curado y Pefrescaddss. 


Estas en el tall de entradas 
del que cuelgan PICOS 
Lapices, Las dde dan hacia 
el este y el sur y hay Un 
e al able arta hacia al ME p3Le 

sta habitacion contiene e 
para: 

e br 

un lerza de 1 

Uña dl la de ¿ 
y Uña capacidad magica de 5 


Oye quieres hacer ahoraól 


añ que caracteristl 103 lucharas? 


ñ magia es 4. fuerza 3. y tu sabiduria es 


1 eneni 30 de cuantos entran el castillo 
ata de lolvling: a] Honbre-Lobo, COñ 
Na 


S ¡y E. Y 


Y este es el listado completo: 


10 REM El legado Bannochburn 
ZO REM TODAS LAS CONTESTACIONES EN MAYUSCULAS 
30 GOS.UBE4480 
40 CLS 
30 1EM(7)=0 AND F(7)=0 AND 5(7)=0 THEN FRINT"La 
aventura ha terminado. "¿FRINT"Has agotado todos t 
us poderes" ¿PRINT:¿PRINT"Luchastes bravamente y bie 
"6 PRINT"pero no pudistes conseguirlo. "¡FRINT:FRIN 
TO '"Adi08S.... "END 
60 FRINT N$", tus atributos soni" 
70 1EM(C7):0 THEN FRINT " Magia: "M07) 
80 1F E(73):%0 THEN FRINT "Fuerza "F(7) 
90 1ES5(7):0 THEN FRINT "Sabiduriar"S5 (7) 
100 1F DINERO + O THEN FRINT "Riquezas $"DINERKO 
110 GOSUB 4990:KEM Fausa 
120 GOSUB 3420:¿KEM Habitacion 
130 M=Q0s IF Z31 THEN 1F RND(-1)%,35 THEN GOSUE 274 


140 GOSUE«AIGO 

130 GOÓSUBI900 

160 GOSUE 4990 

170 60TO40 

LEO REA MM A AE A A dE 
le AEREA AE RE EEE HE 

190 REM Resolucion de la pelea 

200 FELEA=INT(RND (-1)+6)+1 

210 VICTORIA=0 


220 IF(DIFZO AND FELEA =  ABS(DIF)) OR (DIF:0 AN 
D FELEA:= DIF) OR (DIF=0 AND FELEAS 4) THEN VICTOR 
IA =1 


230 GOSUB 4990 

240 RETURN 

DEJO REM HR RI IMHE AM DIE 
HR MR ME MIO II 

260 REM Subrutina de los monstruos 

270 IF (Q=0 THEN RETURN 

280 ON (Q GOSUE 310,320,330, 340, 300 

290 GOSUE 4990 

300 RETURN 
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1 
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i 
l 
Ú 
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1 
1 
) 
' 
) 
' 
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1 
l 
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1 
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E 0. 0-00 € 10 0 El 0-0 


O 


O 


123 


O. Q. Q 


124 


310 PRINT"Hay un mastin enfurecido en"¿FRINT"la 
habitacion. Tiene un grado":¿FRINT "magico de "M(1) 
¿PRINT"Su fuerza es "F(1)"and":PRINT"su sabiduria 
es "S(1): RETURN 

320 PRINT"La habitacion contiene una hidra de 7 
cabezas.Su aliento":¿FRINT" Es fuego.Su sabiduria e 
s "S(2)", mientra que su'"¿PRINT"fuerza es de "F(2) 
¿PRINT"y sus poderes magicos son "M(2): RETURN 

3530 PRINT"Horror! Has tropezado con la guarida d 
e" ¿PRINT"un maligno demonio.Fuedes ver a simple vi 
sta" ¿PRINT"que su fuerza es "F(3)+FPRINT"su habilid 
ad magica es "M(3):FRINT"y su sabiduria es "SIR 
ETURN 

340 FRINT"Has viajado por la oscuridad. ":GOSUE 4 
990: FPRINT"Algo se despierta.OH! es Inmensus, el qu 
ebrantahuesos":¿FPRINT"que tiene magia por'"M(4):FRIN 
T"fuerza de "F(4)"y sabiduria de "5(4): RETURN 

3590 PRINT"Esta habitacion contiene el mas": FPRINT 
"mortal enemigo de cuantos habitan el castillo":PR 
INT"Se trata de Wolvling, el Hombre-Lobo, con" FRI 
NT"una fuerza de "F(3):¡PRINT"una sabiduria de "S(3 
JIPRINT"y una capacidad magica de "M(5): RETURN 

FOO REM 0 dd Hd A A 
AAA 

370 REM Final del juego 

380 PRINT"Has venido a parar a los lodazales cie 
nagosos que rodean el" 

390 PRINT 

400 PRINT"Lago Negro alrededor del castillo. Far 
a escapar" 

410 PRINT 

420 PRINT"del castillo deberas luchar contra el 
Guardian del Lago Negro" 

4ZO PRINT 

440 PRINT 

4390 PRINT"La lucha debe involucrar todos los atr 
ibutos, y necesitaras" 

460 PRINT 

470 FRINT" un total de 10 para escapa..." 

480 GOSUB 4990: GOSUB 4990 

490 1F DINERO:>0 THEN PRINT "Tienes oro por valor 
de $"DINERO 

500 GOSUB 4990 


O 0 00- Or O. 4: O: O O 07.0 


O 


O 


Oo. O O. O 


310 
qe O 
O 
340 
ia 10) 
360 
370 
380 
390 
600 
610 
OO 
IR) 
640 
630 
6600 
6070 
680 
bo 
7O0 
710 
720 
510) 
740 
y 4519) 
740 


Mc07)3" 
780 
790 
800 
810 
Bo 

SO 
840 
830 
860 
870 
880 
890 
900 

taja." 


PRINT: 
PRINT 
PRINT 
PRINT 
ERINT: 
PRINT 
PRINT 
FRINT 
GOSUE 
IF DIN 


ERINT:¿PRINT"Fuedes mejorar tus atributos" 


PRINT" 
PRINT" 
PRINT" 
PRINT" 


FRINT"gastar para aumentar ese atributo." 


PRINT" 
PRINT" 
INPUT" 
IF E$= 
INFUT 

IF DIN 
DINERO 
IF E$= 
IF Es= 
IF Es= 


Fuerza 
1 DIN 
CLS 
FRINT" 
GOSUE 
PRINT" 
INFUT" 
GOSUE 
PRINTS 
FRINT: 
DIF=AB 
ERINT: 
IF M7 
1FM(6) 


FRINT"Los atributos del guardian:" 
Ñ MAGIA: "M(6) 

S FUERZA: "F (6) 

" SABIDURIA: "S(6) 

FRINT"Tus atributos soni" 

a MAGIA: "MC7) 

y FUERZA: "E (7) 

" SABIDURIA: "S (7) 

49901 GOSUB 4990 

ERO 2100 THEN 790 


For $100 cada UMd0....'" 

Si quieres comprar alguno, dime” 
la inicial del atributo 

seguida por el dinero que deseas" 


Dime “N* cuando ya tengas" 
todos los atributos que deseas" 
Atributo (Mm, F o S)"3E$ 

"N" THEN 790 
"CANTIDAD" ¡CA 
ERO-CA%1 OR CA2100 THEN 710 
=D INERO-CA 

mM" THEN M(C73)=M(C7) +INT(CA/100) 
"Er THEN F(7)=F (73+I1INT(04/100) 
"5" THEN 5 (7) :=8S (7) + INT (04/7100) 


770 FRINT "Magias" 


"FF (7) 
ERO:99 THEN 6%0 


Ahora, la Ultima Frueba.." 
AO 

Aprieta RETURN cuando estes " 
preparado para luchar", ES$ 
4990: CLS 

FRINT"Frimero, magia..." 
PRINT"Tus "MC73" Guardian: "M(6) 
S (M(7)-M(6)) 

FRINT"La diferencia es "DIF 
1:M(6) THEN FRINT" a tu favor" 


¿+M(7) THEN FRINT"y el guardian te aven 


910 G60SUB4990 


O Or E O 10 a 3 


O 0. O- 0 


O 


O 


125 


A Y 


126 


920 K=M(6)+M (07) 

930 FENA=INT (RAID (1)+%E)+1 

940 PRINT"Esta lucha lleva una penalizacion" 

930 FRINT"de "FENA"puntos de atributo": GOSUE 499 
O 

960 GOSUE 2600 

970 DIF=M(7)-M(6) 

980 IF DIF>3 THEN DIF=DIF-46: 60T0980 

990 1F DIF < -5 THEN DIF = DIF+6:G0T0990 

1000 GOSUB 190 

1010 1F VICTORIA =1 THEN M07)=M07)+FENA: FRINT"Y t 
u has vencido... por lo tanto" 

1020 IF VICTORIA =0 THEN M(07)=M(7)-FENA: FRINT"Y h 
as perdido... por loa tanto" 

1030 1FM(7)<1 THEN MC7)=0 

1040 PRINT "ahora tienes "M(7)"puntos de magia... 

1050 GOSUB 4990 

1060 PRINT"Oprime RETURN cuando estes dispuesto" 

1070 INFUT"para reanudar esta batalla epica" 5E% 

1080 CLS 

1090 PRINT"Ahora es el momento para una confronta 
cion de " 

1100 PRINT"*fuerza, donde tu puntuacion es "F(7)"y 

la del Guardian" 

1110 PRINT"es nada mas y nada menos que "F(6) 

1120 FRINT 

1130 DIF=ARS(F (7)-F(6)) 

1140 PRINT"La diferencia es "DIF 

11590 1FF(6):F (7) THEN FRINT"a favor del Guardian" 

1160 IFF(7):F(6) THEN FRINT"a tu favor, "N$ 

1170 GOSUB 4990 

1180 K=F (6)+F (7) 

1190 FENA=INT(RND (-1)%K)--1 

1200 PRINT:PRINT"Esta lucha tiene una penalizacio 
Mm ” 

1210 FRINT"de "PENA"puntos de atributo": GOSUB 499 
Ó 

1220 DIF=F (7)-F (4) 

1230 GOSUB 2600 

1240 1F DIF:5 THEN DIF=DIF-46:60T01240 

12390 1F DIF2<-S THEN DIF=DIF+6:60T012350 

1260 GOSUR 190 


0 6 +0. 0 ¿O 0 Y 


O 5! ¿ui QQ Y 


O 


2 SA E, 


1270 


IF VICTORIA=1 THEN F(7)=F (7)+FENA:PFRINT"Eres 


el vencedor, luego" 


1280 


IF VICTORIA=0 THEN F (7)=F (7) -FENA: PRINT"Has 


perdido, luego" 


1290 
1300 
1310 


1500 
1310 
(0) 
13920 
13:30 
1340 
1330 
1360 
1370 


IFF(7)%0 THEN F(7)=0 

FRINT"ahora tienes "F(7)"puntos de fuerza" 
GOSUB 4990 

PRINT:¿PRINT"Oprime RETURN cuando" 
PRINT"hayas dejado de temblar" 

FRINT"lo suficiente para afrontar la tercera 


INFUT"ultima prueba. ."1E$ 

GOSUB 4990 

CLS 

FRINT"Ahora es el momento para una prueba de 


PRINT"sabiduria, donde tu puntuacion " 
FRINT"es "S(7)"y la del Guardian" 

FRINT"es "S(6) 

DIF=ABS (5 (7)-S(6)) 

PRINT:¿FPRINT"La diferencia es "DIF 
1FS(6):%5(7) THEN PRINT "a favor del guardian 


1FS5(7)%S5(6) THEN FRINT "a tu favor, "N$ 
GOSUB 4990 

K=85 (6) +5 (7) 

FENA=INT (RND (1) +) +1 

FRINT"Ahora esta prueba final" 

FRINT"lleva una penalizacion extra " 
PRINT"de "FENA"puntos de atributo": GOSUE 499 


DIF=S (7) -S (6) 

IF DIF:3 THEN DIF=DIF-46:60T01 3:30 

IF DIFZ-S THEN DIF=DI1F+6:60T01340 

GOSUB 190 

GOSUB 2400 

IF VICTORIA=1 THEN S(7):=S (7) +FENA:FRINT"Y ve 


ncistes al guardian!" 


1380 


IF VICTORIA=0 THEN $S(7):=5 (7) -FENA:FRINT"Ferao 


el guardian lo hizo":+PRINT"mejor que tu, "N$"!!" 


1590 
1600 
1610 


1FS(7):20 THEN S(7)=0 
GOSUE 4990 
CLSi: PRINT:PRINT 


DI o E A E AS A 


E << O 0 


Q 


O 


127 


¡SN O O 


128 


1620 
16:30 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
17:30 
1740 
17530 
1760 


PRINT"Y ahora, al final de la" 
PRINT"ultima batalla, tu posicion" 
FPRINT"es: Magia... "M(07) 

FPRINT" Sabiduria..."S(7) 

PRINT" Fuerzas. ."F(7) 
SUM=M (7) +F (7)+5 (7) 

PRINT:FRINT"Bien, "N$", tu" 

FRINT"total de atributos es "SUM 

GOSUE 4990 

IF SUM¿1O THEN 1810 

FRINT"Necesitabas al menos 10 puntos" 
PRINT"para ganar el juego, y lo has" 
FRINT"conseguido, "N$"!":GOSUB 4990 
CLS:PRINT:PRINT:FRINT 

PRINT"Lo has conseguido, Oh heroe " 
FRINT"de estos oscuros y peligrosos” 
FRINT"tiempos. Yo, por lo tanto, os nombro" 
FRINT"Caballero "NS ....o..«.. For favor, levan 


END 

FRINT"Desatfortunadamente, no conseguistels" 
PRINT"terminar con los 10 puntos" 

FRINT"que necesitabais, asi que todo ha term 


FRINT:¿PRINT"No lograstes escapar de las tram 


FRINT"del Guardia..." GOSUE 4990 
FRINT"Luchastes valientemente, pero ahora" 
PRINT"seras consumidO........... « EN 

GOSUB 4990: GOSUB 2600: GOSUBE 2600: END 

RRE EI A 


FR IM IE IE E MIE IE IE IE REE IE JE E 


1900 
1910 
py o=" 


REM Accion 
D=4s IF MIDS$ (E$(Z2),9,1) ="0" OR MID$(E$(Z),%, 
" THEN D=1:1F RND(-1):5%.8 AND 21 THEN GOSUE 


2740:G0TO01910 


1920 
1930 
1940 
1950 
1960 
1970 
á "No 


FRINT"Que quieres hacer ahora"; 

INFUTZS: 1FZ$="T" THEN END 

IFZ$="" THEN CLS:ZS$=" y" 

1FD=4 AND LEFTS$(Z28$,1)<3"L" THEN D=0: G0TO2090 
IF LEFTS$(Z$,1)="L" THEN 20460 

IF Z$="N" AND LEFTS$(B$(Z),2)="00" THEN FRINT 
hay salida":60TO01920 


GS. .0, O. O O O O 1 LO 4 0 


O 


O 


, E (0 Y 


1980 IFZ$="S" AND MID$(B$(Z2),3,2)="00" THEN PRINT 
"No hay puerta en esa direccion":60TO1920 

1990 IFZ$="E" AND MIDS$(B$(Z2),359,2) ="00" THEN FRIN 
T "Eso no es posible":G0TO1920 

2000 1FZ$="0" AND MID$(B$(2),7,2)="00" THEN FPRINT 
"No puedes pasar a traves de las paredes!'":G0TO 19 
20 

2010 1 Z$="N" THEN Z=VAL(LEFTS (B$(Z2),2)): RETURN 
2020 1F Z2$="5S" THEN Z=VAL (MIDS$ (B$ (72),3,2)): RETURN 
OSO 1 Z$="E" THEN Z=VAL (MIDS$ (B$ (23,539, .2)): RETURN 
2040 IFZ$="0" THEN Z=VAL (MIDS$ (B$é (2),7,2)): RETURN 
2030 TF LEFTS(Z8,1)<:%"L" THEN RETURN 

2060 1F RIGHTS (B$ (Z2),1)="0" THEN FPRINT"No hay nad 
a contra lo que luchar": G60TO01920 

2070 1 Z2$="H" THEN D=INT (RND (-N) 2) 

2080 1F D=1 THEN PRINT"En que direccion?":160T0193 
a) 

2090 1 D=0 THEN PRINT"NO!! Debes quedarte y luch 
ari" 

2100 FRINTiPRINT"Con que caracteristica lucharas? 
2110 PRINT"Tuúu magia es'"M(7)", fuerza "F(7)", y tu 
sabiduria es'"S(7) 

2120 INFUTZS: 1FZ$< 2 UM" AND Z2$X<2"F" AND Z4$<:"S5" TH 
EN 2120 

2130 1F Z$="M" THEN HUM=M 07) 5 BES=M (01) 

2140 IF Z2$="F" THEN HUM=F (7): BES=F (01) 

21590 1 2Z2$="5" THEN HUM=S (7) : BES=S (()) 

2160 DIF=HUM-BES 

2170 1F DIF:3 THEN DIF=DIF-6:GOTO 2170 

2180 IF DIF <-5 THEN DIF= DIF+6:60TO02180 

2190 PRINT"La tabla de lucha para este encuentro 
indica "DIF 

2200 FENA = ABS(DIF) + INT(RND(-1)*6) + 1 

2210 GOSUB 4990 

2220 FRINT"Este encuentro conlleva un costo/recom 
pensa de "FENA 

AO Ple TNT (RND (-1)*2): GOSUE 4990 

2240 IF Fl=0 THEN FRINT "El monstruo ataca y la l 
ucha esta teniendo lugar" 

2edO 1 Fl=1 THEN FPRINT "Tu atacas primero y" FRI 
NT"os enzarzais en la batalla" 

2260 GOSUE 2600 


O. 0 


E 10 "Ue 4 O SOL - CON o 


O 


O 


129 


130 


2270 FELEA=INT (RND (-1)+*6)-1 

2280 VICTORIA=0 

2290 IF(DIFZO AND FELEA+ABS(DIF))>) OR (DIF>O AND 
PELEA%<= DIF) OR (DIF=0 AND FELEA<4) THEN VICTORIA 
==] 

2300 IF VICTORIA=1 THEN GOSUB 24460 

2310 IF VICTORIA=0 THEN GOSUB 2530 

2320 GOSUB 4990 

2330 PRINT"Despues de la lucha, tus" 

2340 PRINT"atributos son: " 

2350 PRINT" Magia: '"M(7) 

2360 PRINT" Fuerzas "F (7) 

2370 FPRINT"Sabiduria:"S(7) 

2380 GOSUB 4990: PRINT 

2390 PRINT" Y los de "M$(Q)" son:" 

2400 PRINT" Magia: '"M(0) 

2410 PRINT" Fuerzas "F (0) 

2420 FRINT"sabiduriar"S(0) 

2430 MID$(B$(Z2),9,1) = "Q" 

2440 GOSUB 4990: GOSUBE 4990: CLS 

2450 GOTO2740 

2460 REM Victoria humana 

2470 IFO=0 THEN D=1 

2480 PRINT:¡FRINT"Vencistes al "M$(Q)" 1!" 

2490 1 Z$="M" THEN M(7) = M(7) «*FENA:M(0)=M(0)-F 
ENA: 1FM(0)<1 THEN M(0)=0 
2500 IF Z$="S5" THEN S5(7) 
ENAs IFS (001 THEN S(0)=0 
2310 IF Z$="F" THEN FE (7) 
ENA: IFF(00)<1 THEN F(0)=0 
2020 RETURN 
230 REM Victoria del monstruo 

2540 PRINT:¡PRINT" El "M$(0)" te ha vencido" 
29390 IF Z$="M" THEN M(0)=M(0)+FENA: M (7) :M (7) -FENA 
IF M(73<1 THEN M(7)=0 
23600 1 Z$="S5" THEN S(0)=S (0) +FENA:S (7) =8 (7) -FENA 
IF (73231 THEN S5(7)=0 
2570 IF Z$="F" THEN F(0)=F (0)+FENA:F (7)=F (7) -FENA 
IF E(73%1 THEN F(7)=0 
2580 RETURN 
EOL Me e Me DM ME MM DM DM A E A A 
He MED IMEI A MEA ME 

2600 REM Efectos de lucha 


S(7) +FENA:S(0)=5(0)-F 


E 


E(7) +FENAr:E (00)=F (0) E 


O 


O 0-0 DD 0 O 0) 0 Y 


O 


O 


OO VÚ O 0 


2610 FOR J=1 TO RND(-1)*10+2 

2620 ON C(INT(RND (-1)*6 +1)) GOSUB 2670, 2680, 26% 
O, 2700, 2710, 2720 

2630 FOR F=1 TO 100+RKND(-N)*100: NEXT E 

2640 FRINT:¿FRINT 

2650 NEXT J 

2660 CLS: RETURN 

2670 FRINT" Bash! !!1!"¿FORF=1 TO 100:¿NEXT F:RET 
URIN 

2680 PRINT, "Aagaaarghhh!"¿FOR Fl TO 20:;NEXT FRE 
TURN 

2690 FRINT"Rip"4 FOR F=1 TO 100: NEXTEF: FPRINT, , "CIEL. 
OS! "G FOR Fo =1 TO 100 ¿NEXT F:RETURN 

2700 FOR E=1 TO 20:PRINT"!10! "¿NEXT Es CLOS: RETURN 
2710 RETURN 

2720 FOR Ext TO SiFRINT" 18% )!! "GSNEXT E 5P 
OR P=1 TO 20:¿NEXT FiRETURN 

DTO. REÍA DD A A A 
MI EI 

2740 REM Contenidos 

2730 K+ INT (RND (-1)+8) 

27680 1F K=Z THEN 27350 

2770 1F RIGHTS (E$ (Z2),1)<:"0" THEN RETURN 

2780 MIDS (E$ (9,9, 1) =M1D$ (B$(Z),%9,1) 

2790 MIDS$ (B$(2),9,1)="0" 

2800 IF RKND(-1):%,3 THEN RETURN 

2810 FRINT 

2920 CT=INT (RND O 1) +3) +1 

2830 ON CT GOSUB 2870,2980, 3100, 3210, 2870 

2840 GOSUE 4990 

2830 RETURN 

DO REM ARA A 0 A A A A 
Hed E RE HA 

2870 COFRE=COFRE+101F COFRE=3 THEN RETURN 

2880 FRINT"En frente tuyo hay un cofre" 

2890 ERINT"etiquetado con un gran "COFRE 

2900 FRINT:FRINT"Vas a abrirlo?" 

2910 GOSUBR 3380 

2920 I1FZ$="N" THEN RETURN 

2930 J=INT (RND (173): GOSUE 4990 

2940 1F J =0 THEN BOLSA=100+INT (RND (1)*300): FRIN 
T"Contiene una bolsa con oro del dragon valorado e 
n $"BOLSA: DINERO=DINERO+EOLSA: GOSUE4990:3 RETURN 


0 0 O 4. O: E E 0 


O 


O 


131 


DO. Y. QQ 


132 


29390 IF J=1 THEN PRINT"UN duende salta del interi 
or, y te hiere!":FERDIDA=INT(RND (-1)*6)+1: DINERO=D 
INERO-INT(RND (-1)*200) : IF DINERO<i THEN DINERO=0:6 
OSUB 4990: RETURN 

2960 1F J=2 THEN PRINT"Un estrano humo surge "¿FR 
INT"haciendo que te duermas y":¿PRINT"apoderandose 
de tus poderes magicos": FERDIDA=INT(RND (-1)*8)+1:M 
(7)=M(7) PERDIDA: 1F M(7)<1 THEN M(7)=0:GOSUB 4990: 
RETURN 

2970 REM er dd HE RI MI E 
MM IM A A AA 

2980 IF FOCION=1 THEN 2820 

2990 FOCION=1 

3000 PRINT"Ves una pequena botella, grabada" 

3010 PRINT"con unas curiosas letras retorcidas... 
3020 PRINT:PRINT"Quieres beber la pocion que " 
3030 PRINT"se puede ver en el interior de la bote 
lla?" 

3040 GOSUB 3380 

3OS0 IF Z$="N" THEN RETURN 

3060 GOSUB 4990 

3070 IF RND(-1)%.6 THEN PRINT "contenia una pocio 
n para"¿PRINT"aumentar tu sabiduria":15(7)=S8(7)+INT 
(RAND (-1)*6)+1: GOSUB 4990: RETURN 

3O8B0 FPRINT"contenia una pocion que": PRINT"te debi 
lita MaS... ooo. "1: GOSUE 4990: F (7)=F (7) INT (RND (-1)*6 
1: 1FF (73%1 THEN F(7)=0: GOSUB 4990: RETURN 

ZOO REM Am dd MD A A A 
He Ml e MM A E EA 
3100 IF CALAVERA=1 THEN RETURN 
3110 CALAVERA=1 
3120 PRINT"Ves un papiro enrollado." 

3130 PRINT"Quieres intentar leerlo?" 

3140 GOSUB 3380: 1F Z$="N" THEN RETURN 

3150 IF RND(-1)%.5 THEN PRINT"No puedes entender" 
PRINT"el idioma... "1: GOSUB 4990: RETURN 

2160 PRINT"Contiene un conjuro magico. Quieres" FR 
INT"leerlo?" 

3170 GOSUB 3380: 1F Z$="N" THEN RETURN 

3180 IF RNDG1) * 5 THEN PRINT"Era un conjuro be 
neficioso":GOSUB 4990: M (7) =M (7) +1INT (RND (1)*6)+1:R 
ETURN 
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3190 PRINT"Era un conjuro maligno": G0SUR 49901 M (07 
0 F (7) =INT (FE (7) /2): RETURN 

F2O00O- REM Ad A PH MRE A HE E HI A 
MH REI II HR 

az10 1F CAJAFUERTE=1 THEN 2820 

3220 CAJAFUERTE=1 

2230 PRINT"En la pared hay una pequena Caja fuert 
e dorada" PRINT"y a su lado hay una llave..." 

2240 PRINT"Quieres abrir la caja fuerte?" 

3200 GOSUB 3380 

3260 IF Z$="N" THEN RETURN 

3270 IF RND(-1):,.3 THEN 3330 

3280 GOSUB 4990: PRINT"Una arpia ululante vuela ha 
cia til PRINT"y unde sus dientes en "¿FRINT"tu gar 
ganta!!l!" 

3290 GOSUB 4990 

2300 PRINT"Luchas con ella, y ... "1 GOSUE 4990: FRI 
NT"... finalmente le retuerces el cuello" 

aa dO E(C7)=F (7) INT (RND (1)*6)-1: IFF(732%1 THEN EC? 
O) 

Ae. GOSUE 4990: RETURN 

3330 PRINT"Oyes un coro de" ¿FRINT"voces angelical 
Ena amo "a GOSUB 4990 

240 PRINT"Eres curado y refrescadO.." 

350 M(7)=M 07) +23 F 07)=F (7) +21 5(7)=5 (7)+2 

3360 GOSUB 4990 

3370 RETURN 

3380 Z$=INEEYS 

3390 IFZS$:<3"N" AND Z$x2:"S" THEN 3380 

3400 PRINT: RETURN 

2410 REM. 44 de de ee de de de de E E dE DE E dE IE DE IE IE E E MM DE FE E E E 
E 

3420 REM DESCRIFCION DE LAS HABITACIONES 

3430 ON Z GOSUB 3480,35370,3630, 30680, :37704 38904, :30903 
O, 4080, 4210, 4270, 43390, 4440 

3440 O=0: IF RND(-1)%*.81 AND Z:1 THEN (=INT (RND (1 
36) :MIDS$ (B$ (Z2),9,1)=MID$ (STR$(0),2,1):60T0260 
2450 E$S=MI1D$(B$(Z2),9,1):1F E$:>"0" AND Es:2"6" THEN 
Q=VAL. (E$) 

3460 IFC0:0 THEN GOSUB 260 

3470 RETURN 

2480 PFRINT"Estas a la entrada de un" 

2490 FRINT"antiguo castillo de" 
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3500 
33910 
DUO 
SO 


pza 


33940 


300 
3560 
3570 
2580 
35090 
3600 
3610 
S6Z2Ó 
630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3730 
3760 
3770 
3780 
3790 
5800 
3810 
3820 
F83O 
5840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 


PRINT"impresionante aspecto.Estas en” 
PRINT"el lado norte del castillo" 

PRINT"y al mirar hacia el sur, hacia" 
PRINT"la solida estructura, te" 

FRINT"das cuenta de que el portal de entrada 


FRINT"esta abierto y sin guardia" 
RETURN 

FRINT"Estas en el Hall de entrada," 
FRINT"del que cuelgan ricos” 
PRINT"tapices.Las puertas dan hacia" 
PRINT"el este y el sur, y hay un 
FRINT"portal abierto hacia el oeste" 
RETURN 

PRINT"Este es solo un pequeno almacen" 
PRINT"donde solo hay una salida, la " 
ERINT"misma por la que entrastes," 
PRINT"hacia el oeste" 

RETURN 

PRINT"Esta pequena habitacion, que" 
FRINT"tiene una bonita escultura de" 
PRINT"la diosa de la luna en un ” 
FRINT"pedestal en el rincon noreste," 
FPRINT"es la Real" 

FRINT"Camara de Recepciones. Hay puertas" 
PRINT"hacia el sur, el este, y " 

PRINT"el o0estBe.....” 

RETURN 

PRINT"El Salon de las Intrigas, una" 
PRINT"habitacion con paneles de madera" 
PRINT"reminiscente de susurros y" 
PRINT"rumores, con salidas hacia el este" 
PRINT"y hacia el sur, de donde" 

PRINT"1lega un olor de azufre y" 
FPRINT"cantico magicO...." 

RETURN 

PFRINT"Has entrado a la cueva de " 

PRINT"las Brujas, con Una marmita hirviendo" 
PRINT"en un fuego de llamas verdes" 
FRINT"en el rincon suroeste." 

PRINT"Esta habitacion rezuma azufre" 
PRINT"ardiente, y el eco de" 

PRINT"antiguos conjuros. Fuedes salir" 
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3920 
3930 
3940 
3950 
32960 
3970 
2980 
3990 
4000 
4010 
40ZÓ 
sg" 
AO 
s de" 
4040 
e la" 
40590 
4060 
407O 
4080 
40O 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
aio 
ABZO 
AO 
4240 
ARO 
18) 
4Z7O 
4280 
ARO 
300 
aio 


FRINT"hacia el norte, el sur, " 

FRINT"O el este" 

RETURN 

PRINT"Te encuentras en un lugar" 

FRINT"que parece tranquilo y pacifico." 
PRINT"Estas en la Galeria de Retratos" 
FRINT"del castillo,con un gran cuadro" 
FRINT"del Legendario Guardian" 

PRINT"del Lago Negro a la izquierda de" 
PRINT"la ventana de la pared este. A traves" 
FRINT"de la ventana puedes ver los partelucace 


FRINT"de las ventanas del Gran Salon a trave 
FPRINT"Jardin de los Contornos. Las salidas d 


FRINT"Galeria son hacia el norte y" 
PRINT"hacia el estB.......” 

RETURN 

PRINT"Este es el Salon mas suntuoso" 
PRINT"del castillo, el Gran Salon," 
FRINT"con un impresionante techo" 
FRINT"labrado. Puedes salir por las puertas" 
FRINT"dobles del norte o por" 

FRINT"las del este, tras las cuales" 
PRINT"1llega un sonido de musica," 

FRINT"A traves de las ventanas del muro" 
PRINT"oeste, puedes ver el Jardin". 
PRINT"de los Contornos, y mas alla," 
FRINT"las ventanas de una habitacion con" 
PRINT"muchas, muchas pinturas valiosas." 
RETURN 

PRINT"Sonidos de un cuarteto de cuerda" 
FRINT"llenan esta habitacion, la Camara" 
FRINT"de los Musicos. Fuedes salir por" 
PRINT"las puertas del oeste, O por" 
FRINT"la del su..." 

RETURN 

FPRINT"Ahora estas en el Santuario" 
PRINT"del Silencio, una habitacion cuya" 
FRINT"calma puede ser una decepcion." 
PRINT"La habitacion es humeda y fria. Una" 
PRINT"salida deja la habitacion hacia el" 
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4320 


330 


FRINT"norte "3 
IF MIDS$ (BE$(10),3%,2)="12" THEN PRINT"y otra 1 


leva hacia el sur." 


4340 
AO 
43560 
4a3n7O 
4380 
4390 
4400 
4410 
4420 
hacia 
AO 
4440 
4430 


FRINT: RETURN 

FRINT"Este debe ser el Vestibulo" 

FRINT"de las Visiones, una habitacion" 
FRINT"humeda y viscosa, donde la leyenda" 
FRINT"asegura que el Guardian del Lago Negro 


FRINT"a veces puede ser oido de noche." 
PRINT"Hay una puerta hacia" 

FRINT"el norte "; 

IF MID$(B$(11),3,2)="12" THEN FRINT "y otra 
el sur." 

FRINT: RETURN 

GOTOF7O 

IF MIDS$S(E$(2),9,12:3"0" THEN Q=VAL(MIDS (E$ (2 


119,1): GOSUBE 260 


4460 
4470 


RETURN 
II 
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4480 
4490 
ASOO 
4310 
AA) 
ao 
434.0 
40 
45360 
4370 
438O 
ADO 
400 
4610 
dAOZO 
AOBO 
ADA 
4630 
4660 


REM INMNICIALIZACION 

RANDOMIZE 

Ze 1 

DINERO=0 

COFRE=0 

FOCION=0 

CALAVERA=0 

CAJAFUERTE=0 

DIM BE*$(1:2),M$(6),M(7) 

CLSi:FRINT:¿PRINT 

INFUT"FOR FAVOR, TECLEA TU NOMBERE"3N$ 
CLS:PRINT"HOLA, "5N8 

ERINT"UN MOMENTO, FOR FAVOR..." 

REM Llena las habitaciones 

FOR T=1 TO 12 

READBS$ (T) 

L=END (-1) 

O$=S5TR$ (INT (END (-1)*33+1) : 
IF Tri AND T211 AND Li,.6%3 THEN BE$8(T) =B8C(T) 


+ RIGHTS (004, 1) 


4670 
4680 


IF T:10 OR Loi=.6Z2 THEN Bs$8(T)=BEs$ (T34"0" 
NEXT T 


Os. 8-0 Q 


O O. 0 Q A O: UU «4 O O 


4090 L=RkND(-1) 

4700 1 L2.S THEN Bstlidli= "01200000" 
4710 1F Lóz=, THEN E$(10)="061200000* 
4720 REM Crea los monstruos 

4730 FOR T=1 TO 6 

4740 READ M$(T) 

4750 FCT)=INT (END (-1)*6)+1 

4760 MC) =INT (END (-1)*6)+1 

4770 S(T)=INT (RND (-1)*6)+1 

4780 NEXT T 

4790 REM Caracteristicas humanas 
4800 F(7)=INT (RND (-1)*6)+1 

4810 MC7)=INT (END (1)%6)-+1 

4820 S(7)=INT(RND (-1)%6)+1 

4830 REM Datos de las habitaciones 
4840 DATA"O000Z200000" 

4850 DATA"00080304" 

4860 DATA"00000002" 

4870 DATA"00070205" 

4880 DATA"00060400" 

4890 DATA"05100700" 

4900 DATA"04000600" 

4910 DATA"02000900" 

4920 DATA"00110008" 

4930 DATA"06000000" 

4940 DATA"O9000000" 

4930 DATA"O00000000" 

4960 REM Nombres de las bestias 

4970 DATA"Mastin", "Hidra", "Demonio", "Cuebrantahue 
sos", "Wolvling", "Guardian" 

4980 REM Are de dd E ER dd RE JE E E E DH HE JE HEHE 
AS 

4990 REM Rutina de pausa 

5000 FOR F=1 TO SOO0¿NEXT EF 

2010 FRINT 

SOZ0 RETURN 
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SIMULACIONES 


Las simulaciones son modos de producir una realidad falsa. En 
comparación con las AVENTURAS, en las cuales la realidad que se 
crea por medio del ordenador suele ser mágica y parecida a un sueño, 
los mundos a los que uno puede acceder por medio de simulaciones en 
el ordenador son, en general, más terrenales. 

En una simulación, el ordenador manipula variables de acuerdo 
con fórmulas que uno le ha especificado previamente, no perdiendo de 
vista ni un momento el desarrollo de la situación que el programador 
ha creado y ocupando el lugar del entorno en términos de reaccionar a 
la información que se le introduce. 

Las simulaciones intentan hacer una réplica de la vida real. Sin 
embargo, como la realidad es muy difícil de limitar y restringir, hay 
que hacer una simplificación bastante drástica antes de poder producir 
una imitación que pueda funcionar. 

A pesar de esta simplificación, como verá en seguida, una simula- 
ción bien escrita puede remedar la vida real hasta unos extremos pavo- 
rosos. Causa y efecto están ligados de un modo tan preciso como un 
comportamiento que siguiera fórmulas ideadas por el jugador. El ge- 
nerador de números aleatorios puede ocupar el lugar de cosas tales 
como los cambios de tiempo, el número de habitantes, el comporta- 
miento de las moléculas en el gas o el modo en que una tinta de color 
se dispersa en un líquido transparente. 

En este capítulo del libro se incluyen tres simulaciones. Una de 
ellas —LA SENORA XENOFOBIA— es tan simple que llega al 
absurdo, pero es un juego la mar de divertido, ya que el jugador 
intenta remendar el destino de todo un planeta. Los otros dos 
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—PRACTICAS RURALES (en el que el jugador lleva una granja cu- 
yos jornaleros son de lo más veleidoso) y PRESIDENTE DEL CON- 
SEJO DE ADMINISTRACION (en el que el jugador administra una 
fábrica que podría producir cualquiera de una gran variedad de produc- 
tos desde bicicletas a libros, pasando por cascos de bomberos)— son un 
poco más serios y las fórmulas empleadas en ellos producen resultados 
un poco más próximos a la «vida real». 

A pesar de su «seriedad» estos dos últimos son también muy diver- 
tidos, como comprobará en cuanto los haya ejecutado una vez. 

Si quiere más información sobre el modo de escribir programas de 
simulaciones, el folleto Designing Classroom Simulations, escrito por 
Glenn Pate y Hugh Parker, Jr., le será de una gran ayuda. Asimismo 
la revista Creative Computing ha publicado dos valiosos artículos so- 
bre este tema. Estos son «How to write a computer simulation», cuyo 
autor es el propio editor de la revista, David Ahl, aparecido en el 
número de enero/febrero de 1978 (y que es el texto de una conferencia 
que Ahl dio en junio del 74 en un congreso sobre ordenadores que 
tuvo lugar en Pullman, Washington) y «Strategies for Successful Simu- 
lation», de Bruno B. Wolff, Jr., que apareció en el número de agosto 
de 1981. Merece la pena que consiga estos números atrasados ya que 
aprenderá mucho con la lectura de ambos artículos. De particular 
interés en el artículo de Wolff es el conjunto de cuatro ecuaciones que 
ligan causa y efecto y que pueden adaptarse muy fácilmente a cual- 
quier programa de imitación que uno quiera escribir. 


LA SEÑORA XENOFOBIA 


Empezaremos nuestra exploración de las imitaciones con el progra- 
ma más disparatado de los tres, LA SENORA XENOFOBIA, que está 
basado en un programa escrito por Alastair Gourlay, un programador 
de gran talento que vive en Glasgow. 

No hay ninguna necesidad de explicar este juego, ya que el progra- 
ma le da todo lo que el jugador puede necesitar. Aquí se le ofrece una 
parte de la ejecución del programa: 


senor de Xenophobla» un Erebed Para 

Su Senelencia de la 0f Hol na de Informacion 
referente al estado de su planeta 

en el ano de Gracia de 19% 


La poblacion del planeta es 42 


Los viles campesinos podrian trabajar 
unos 116 acres este and... 


El tesoro contiene 00, gemas 
y monedas por valor de $ 943 


Es hora ya de promulgar un decreto... 


Cuanta tierra va a ser cultivada 
esta ano dd 
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Los viles campesinos podrian trabajar 
unos 99 acres este an0 , 


2 tesoro contiene or0s ganas 
y monedas por valor de $ 102] 


Es hora ya de promulgar un decreto... 


Cuanta tierra vaa ser cultivada 
este 310 17 


Y ocuanto vas a gastar 

en comida para le campesinos 724 

hs cielos!! No hay comida para tod0s... 
Que horror, su Aenolteza 

Ha habido una rebelion!!! 


e Campes ¡nos estan descontentos 
e han sublevado. 


El tesoro contiene oro, gemas 
y monedas por valor de $ 645 
Es hora ya de promulgar un decretO,.. 


Cuanta tierra vaa ser cultivada 
este ano 910% 


Blen, senos en bonito lio 
te has metido tu y nuestro 
pequeno planeta, 


O" TOD Y 


El Tesoro esta en bancarrota!! 


Sabes quien fue el culpable??99979999779917 
31 quieres ser reelegido: 
linitate a apretar la *S 


O bien la *N' 5] quieres terninar esta farsdo.. 


Y este es el listado: 


10 REM La senora Xenofobia 

z0 GOSUB 700:¿REM Inicializacion 

EC COFRE A E Md 
HD A A EA E 

40 FOR Y = 1 TO 20 

30 CLS 

60 FRINT:¡FRINT:¿FRINT 

7O PFRINT"Senora de Xenofobia, un dossier para" 

80 FRINT"Su Xenelencia de la Oficina de Informa 
cion" 

90 PFRINT"referente al estado de su planeta" 

100 PRINT"en el ano de Gracia de "1994 + Y 

110 FRINT:¿FRINT 

120 PRINT"La poblacion del planeta es "INT(F) 

130 GOSUB 880 

140 PFRINT"Los viles campesinos podrian trabajar" 

130 PRINT"unos "L'" acres este ano ...'" 

160 GOSUB 880 

170 FRINT"EL tesoro contiene oro, gemas" 

180 FRINT"y monedas por valor de $" INT (1) 

190 GOSUB 880 

200 FRINT"Es hora ya de promulgar un decretOs.. 

210 PFRINT:IFRINT"Cuanta tierra va a ser cultivada 


220 INFUT "este ano "¡Ww 
230 UsU-W*10 

240 1 U 2 1 THEN 780 
200 L=L+w 
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260 
270 
280 
290 
500 
310 
O) 
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GOSUB 880 

PRINT:PRINT"Y cuanto vas a gastar" 

INFLT"en comida para los campesinos "5Ww 
UslJ-N*10 

IF UX“xi THEN 780 

R=INT (RAND (-1)*10)+1 

GOSUB 880 

IF P-ARR*GS E/4 THEN PRINT"Oh, cielos!! No h 


ay comida para todo0S... "1 GOSURE 380 


340 P=R+REND (1) (W*R*3G- E) 
350 IF Fs 149 THEN 410 
360 GOSUB 880 
370 PRINT'"La poblacion de Xenofobia es" 
380 FRINT"ahora de solo "F" y eso" 
390 PRINT"no es suficiente, Alteza." 
400 60T0480 
410 Usli+INT (FL) /93 
420 NEXT Y 
430 PRINT:PRINT:¿FRINT"Eien, Oh Gran Xenophobica, 
este es" 
440 PRINT"el fin de tu dominio de 20 anos sobre" 
430 PRINT"nuestro pequeno planeta. Conseguistes" 
460 PRINT"acumular unos $"U", lo que" 
470 PRINT"no esta nada mal..." 
480 GOSUB 880 
490 PRINT:PRINT"Si quieres ser reelegida," 
500 PRINT"limitate a apretar la 'S'," 
510 PRINT"O bien la "N* si quieres terminar esta 
farsa." 
3520 Ab=INKEYS 
530 1F As ¿5 "N" AND A$<"n" AND As:+"S5" AND Asx 
+"s" THEN 320 
540 IF As$="N" OR As$="n" THEN PRINT"Tus deseos so 
n ordenes para mi, "¿PRINT"Oh Senora de Xenofobia": 
END 
3590 GOTO 10 
560 REM AR A A A A A 


FRI IE IE RI IE IE II II E E IE E A 


370 
380 
390 
600 
610 


REM Rebelion 

PRINT:¿¡PRINT"Que horror, su Xenolteza" 
PRINT"Ha habido una rebelion!!!" 
FRINT"Tus campesinos estan descontentos" 
FRINT"y se han suylebado." 


O Y 
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“1 620 GOSUB 880 E 
) 50 TF RND(1) <.2 THEN PFRINT "Y tus guardas no ¡ 

o) l han podido controlarlos"1¿G0TO 480 0) 
: 640 PRINT"Fero tus guardas han acabado" 

y 630 PRINT"con toda esa falta de sentido," 
: 660 GOSUB 880 

O 1 670 RETURN ¡e 
680 NEXT Y 

o NI | O 
$ PIN RMMA AMA ' 
700 REM Inicializacion l 
! 710 RANDOMIZE ] 

sl | 720 CLS ] 2 
ZO P=200+1NT (RND (1)*300) ' 

e 740 Us700+ INT (RND (1)*300) 0 
7390 L=70 «INT (RAND 1)*30) 1 
760 RETURN ? 

¡ON A E | O 
HN MD A E MH ' 

¡ 780 REM Bancarrota 
O; 790 FRINTi¡PRINT"Eien, Xeno, en bonito lio" ' O 
l 800 PRINT"te has metido tu y nuestro" , 
| 810 FRINT"pequeno planeta," ! 

O 5 ' 820 GOSUE 880 O 
: 830 PRINT¿FRINT"El Tesoro esta en bancarrota!!!" 

! 840 GOSUE 880 
2% 830 PRINT"Sabes quien fue el culpable? 9222797727997 | O 
Pan n 
860 G0TO49O 
Ó | ESTO FUEL HH Me MM He Me Md A MM MA: O 
MEE EEE ' 
¡880 REM Retardo | 
O 1 890 FOR J=1 TO 1500:NEXT J O 
i 900 PRINT 1 
910 RETURN ¡ 

O 
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PRACTICAS RURALES 


Si ha sobrevivido a LA SENORA XENOFOBIA, puede que le 
interese ahora algo más pegado a la tierra: llevar una granja. En 
PRACTICAS RURALES, que está ligeramente basado en un progra- 
ma escrito por Stephen Glen, también de Glasgow, el jugador se 
enfrenta a una difícil tarea, ya que ha de vérselas con un grupo de 
jornaleros extremadamente susceptibles para llevar a casa el tocino (o 
al menos el trigo y la cebada). 

Nos encontramos de nuevo ante un programa que en gran medida 
funciona solo. Sencillamente trabajando con él aprenderá el lector 
cuál es la mejor estrategia para conseguir sacarle a la granja el máximo 
de ganancias (al tiempo que lograr sobrevivir los veinte años exigidos 
para ganar la partida). Sin embargo, no vendrán mal algunas sugeren- 
cias. Aunque es cierto que puede ahorrar dinero pagándoles a sus 
trabajadores un sueldo muy bajo, no se fíe de esto, ya que pueden irse 
en bloque al año siguiente y las ganancias que se sacan de la tierra 
vienen dictadas, hasta cierto punto, por el número de personas que se 
tienen trabajándola. 

Otro factor que no se debe olvidar es que las tres cosechas que el 
jugador puede plantar producen ganancias bastante diferentes, así 
pues, le interesa calcular cuál es la cosecha que más beneficio produce 
para posteriormente concentrarse en ella. 

No se desanime si las primeras veces que ejecuta el programa echa 
a perder el proceso. Tendrá que desarrollar técnicas reales para man- 
tener la granja solvente y puede llevarle varios malos años hasta que 
le coja «el tranquillo». 


Lo que viene a continuación es una parte de la salida de PRACTI- 
CAS RURALES: 


Ir AN 
Tienes 7231 pts. enelano ] LJ] 
a0rs LJ 
p Dedica ñ ( PS 
LCosechasi- A de malz | 
de cebada ¡E 
Ú de trigo 
FSA 
E | ] 
r =-— 
E 
Ll 
AAA 


Tienes 6349 pts, enelano 1 ——) 
== 
Estas empleando 573 | 
trabajadores para 25% acres a 
ps 
Lo) 
4d | 

dd 
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enes 508 pts, enel ano ¿ 


ajadores para 403 acres 


Cosecnasi” ¡0% de malz 
12 de cebada 
158 de trigo 


se cosecharon ¿78 toneladas 


Y aquí tiene el listado que le convertirá en un granjero feliz: 


10 REM Practicas rurales 
¿O RANDOMIZE 
/ ZO YRel 
| 40 MO=INT(RND(1)*1000+7000) 
' 50 LA=INT(RND (1) *1000+100) 
60 AC=INT(RND(1)*300+200) 
] 70 CS=INT(RND (1)5)+8:0X=C5 
80 BAz=O: WH=0: CO=0 
l 90 GOSUB 170 
O | 100 GOSUB 290 
110 IF YR=10 THEN 750 
120 IF MOz<1 THEN 790 
i 130 IF LAzi THEN 820 
? 140 YR=YR+1 
130 CS=CS+ INT (12, 5*058/100): REM Los costes genera 
| les se incrementan en un 12,5 % anual 
| 160 GOTO 80 
y 170 REM Actualizacion 
| 180 GOSUB 870 


O O Q 
O" O AO 00-04 O 
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Oo. O 0 O 


190 
200 
210 
220 
240 
250 
260 
270 
280 
290 


FRINT "Tienes "MO" pts. en el ano "YR 

GOSUE 880 

FRINT "Estas empleando "LA 

PRINT "trabajadores para "AC" acres" 

GOSUB 880 : 

FRINT "Cosechasi=", CO" de maiz" 

FRINT ,BA "de cebada" 

FRINT O ¿WH" de trigo" 

RETURN 

PRINTiFRINT "Gastos generales por cada acre 


trabajado: "CS" pts.” 


300 


FRINT "El maximo numero de acres que puedes 


trabajar est"; 


340 
330 
00 
370 
380 
370 
ADO 
410 
r '” 5 
ADO 
O 
44O 
430 
ANO 
47O 
480 
AS) 
300 
310 
Pe 
de) 
340 
O 
360 
370 
380 


MAX=INT(MO/CS):1F MAX + AC. THEN MAX=AC 
FRINT MAX 

FRINT"Cuanta tierra quieres arar"; 

INFUT L 

IF Lo MAX THEN 370 

MO=MO-L*C0S 

GOSUE 170 

FRINT:¡FRINT "Cuanto pagaras a cada trabajado 


INFUT W 

IF WLAMO THEN 420 

MO=MO-LA+*W 

GOSUB 170 

Pelo 

PRINT "Que proporcion (de 10) " 

FPRINT "Quieres concentrar en el maiz"; 
INFUT CP 

IF CFF THEN 490 

PP (E 

FRINT:FRINT "De los "F" restantes de 10, " 
PRINT "cuanto trigo vas a plantar"; 

INFUT WE 

IF WESF THEN 540 

Pip pyE: 

GOSUB 870 

PRINT "Espera para que transcurra un periodo 


anual...” 


390 
600 
610 


FOR Z=1 TO 20002: NEXT Z 
BA= INT (FeLALA*XW*3/100000) 
CO: INT (CRALALA*WN2. 7/17000) 


O- — O 0 


2. 0 200 70. "O: 00-07 “O O: “O 00 


149 


t 
l 
) 
! 
! 
! 
1 
| 
J 
; 
| 
1 
Í 
l 
l 
| 
1 
| 
| 
4 
1 
i 
Í 
! 
; 
| 
| 
| 
| 
l 
| 
l 
l 
l 
l 
1 
! 
' 
| 
l 
l 
1 
I 
J 
1 


620 
630 
640 
630 
660 


670 
680 
490 
700 
710 
TO 
TEO 
740 
730 
760 
770 
780 
790 
800 
810 
820 
eo 
840 
850 
860 
870 
880 
890 


WiH:= INT (WNRRLALA*Wxi., 44/9300) 

T=RA+CO+WH 

GOSUB 170 

FRINT¿PRINT "Se cosecharon "T" toneladas” 


RT=INT(O3+8B. TA BAR PACO AA RNA) (OS 1) 


IF BA=0 AND CO=0 AND WH=0 THEN RKT=0 
FOR Z=1 TO 20002 NEXT Z 

ERINT:¿FRINT "Y tu ganancia total " 
FRINT "fue de "RT" pts." 

MO=M0+RT 

L. As INT (LALA (W+.01)) 

FOR Z=1 TO 2000 NEXT Z 

RETURN 

GOSUE 870 

FRINT "Has sobrevivido durante 10 anos" 
PRINT "Felicidades" 

END 

GOSUB 870 

FRINT "Has llegado a la bancarrota!" 
END 

GOSUB 870 

FRINT "No tienes trabajadores y" 
FRINT "has tenido que vender" 

FRINT , "tu granja" 

END 

CLS 

FRINT:¿FRINT 

RETURN 


O- DO E O. LE 0 


O 


O 
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PRESIDENTE DEL CONSEJO 
DE ADMINISTRACION 


Por último tenemos la imitación más importante de las tres, PRE- 
SIDENTE DEL CONSEJO DE ADMINISTRACION. 
Este programa también funciona solo en su mayoría. El objetivo 


del juego es lograr mantener en funcionamiento una fábrica hasta que . 


se hayan ganado 10.000 dólares (en total, combinando el valor de los 
artículos que se tienen en «stock» y el capital). El jugador tendrá que 
entendérselas con los sindicatos, a veces recalcitrantes (que no le per- 
mitirán hacer despidos improcedentes y que estarán continuamente 
exigiendo subidas salariales a las que el jugador no se podrá negar), 
con unos obreros que a duras penas consiguen cumplir los índices de 
producción que se les marcan y con unos proveedores de materias 
primas que disfrutan tanto subiendo los precios como los sindicatos 
presionándole para que aumente los salarios. 

El jugador verá en seguida, en contraste con los otros dos progra- 
mas de este capítulo que no son sino vagas aproximaciones a la vida 
real, que la vida y el estado económico de la fábrica se convertirán en 
algo muy importante para él, y es seguro que no tardará en aprender la 
manera de manipular los recursos con los que cuenta para conseguir 
un máximo de beneficios. No debe olvidar el jugador que, aunque 
tiene toda la libertad para fijar el precio al detalle de los artículos, 
cada subida de precio aumentará la resistencia del consumidor a la 
hora de comprar esos productos. 
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Estos son unos cuantos ejemplos de una partida: 


Informe 


Us departamentos bienen ¿0d porrones 


valorados en $ 


se están n vendia ndo a $ 14 cada uno 
y cuesta $ 18 LO arloz, 


Estas empleando ahora unos 
l tra bajado E las 
gsi 20oa cada Uno» asi que 
los salarios te costaran esta se 


¡CU Cada persona puede hacer 10 
porrones a la semanas lo que hace 

FS un total de 119 

| Cuanta E quieres 


Pe J) CO! ptr El La 


Ax Tus ado: tienen 350 pucheros 
ll ] valorados end as 


38 estan vendiendo a $ 10 cada uno 
y cuest ¿5.9 fabricarlos, 


ta semana $ 19 
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a e A E AI 
son + do 3 la semana 


5 pr oducir?140 


de 
Cuantos qui 


¡ 
ñ 
Í 
P, 4 
E Í 
+ ¡ 
p 
| Al 


y] 
A] 
A] 


win 
LN 
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Y ahora el lector ya puede satisfacer sus ambiciones mercantiles 
con este listado: 


10 REM Fresidente del consejo de administracion 

ZO GOSUE 1670¿RÉM inicialización 

20 SE = SE + 1 

40 GOSUE 930: REM report 

30 GOSUE 1300: REM plantilla 

60 GOSUE REM informe 

70 GOSUB 11: REM produccion 

20 GOSUBE 930: REM informe 

0 GOSUE 7302: REM ventas 

100 GOSUE 140: REM problemas 

110 CAz [A - SAXTR — En 

120 GOTO 30 

LEO REPRIME Md MD Me Ho MI A Ad MI E DR 
Mee MMMM MM A 

140 REM problemas 

130 LS 

1606 TE ENDidd 2,435 THEN 260 

1706 Az INTO ENDGild * 7) c++ 1 

180 PRINT: FRINT: FRINT 

190 PRINT"Los sindicatos demandan um" 

200 FRINT "aumento en el salario del "AY" 

210 SA = INTC(1OO* (SA + SAXA/1O0003/100 
GOSUE 1340 
FRINTERINT"EL salario por empleado es añora 


O 4-0 0 


$Uoa 

240 GOSUBE 1840 

20 LS 

260 TF ENDGili 2 ,81 THEN 410 

270 FRINTAFRINT: PRINT 

2380 PRINT*0n fuego en tus almacenes na" 
280 PFRINT"desteruido parte del stock,For favor" 
300 PRINT"aguarda un informe de los" 
LO PRINT "danos causados..." 
320 GOSUE 1840 
2 AZ INT ORND ld e DEZZ) + 1 
240 DE = DE - A 

2390 FRINTPRINT"Ha habido"ara% 
200 FRINT"destriddos. Estaban" 
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O. TO “Qe El 16 20 O 0 0-0 O 


O 


O 


0: E E 3 


70 
280 
270 
400 
4LO 
AO 
ADO 
440 
43uO 
ANO 
47O 
480 
4O 
500 
310 
ZO 
O 
S40 
Ae) 
OO 
370 
10) 
390 
600 
610 
ARO 
O) 
440 
LO 
bebo 
Lb7O 
6380 
BRO 
A par 
700 
710 


TEO 


PRINT"valorados en $U'AxFYV" EV,F," 

GOSUE 1840 

PRINT"EL stock que ponseemos" 

FRINT"ahora es de "STIiAS 

TF END(Gid +. THEN 560 

CL.S 

FRINTi¿FRINTi¿FRINT 

PRINT"Tu principal proveedor ha anunciado" 
FRINT"un dramatico incrementO..." 

GOSUBE 1840 

A= INT (END (1)100*C00/7)/100 

IF A2,01 THEN 470 

FRINTPFRINT"El costo de fabricacion de "As 
FRINT"se ha incrementado en $"A"por unidad" 
GOSUE 1840 

CO = CO + A 

EFRINTI:FRINT"Ahora cuestan $"20 

FRINT"por unidad." 

GOSUB 1840 

TF END(G1)2 06,45 AND CU £ FYV THEN RETLURN 
CL.S 

PRINT:¿PERINT:¿FRINT 

FRINT"Tienes una oportunidad de subir" 
FRINT O TAB(133"el precio. Ahora" 
FRINT"estas vendiendo tus "AS" a $"EY 
GOSUB 1840 


FRINT 
FRINT"Que porcentaje de incremento" 


INFIIT"te gustaria imponer"; 

RE Cu RE + A 

FY o: TNT OCLOO*(EY + AXEV/10013/100 

GOSUBE 1840 

FRINTPRINT"Tus "As" se estan vendiendo abvor 
Buey 

GOSUE 15840 

EEETAJRN 

o E RR 


MMMM MM: MM: MMMM MM MI 


TEO 
FAO 

JO 
TEO 
TIO 


REM ventas 

FRINT¿ERINT"Tu stock total de" 
FRINTAS" es "DE 

GOSUE 1840 

FRINT¡ERINT"Eor favor, eguarda Lun" 


O: Y 


o O ¿O O. O O. ¿O O. E O: 9 


O 


O 
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O E O. 0 
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780 FRINT"inftorme de ventaSu..." 
TO A= INT ORND Ci) ADE/(RE/1IO00) + 1 
00 TF A = DE THEN 720 
210 ELS 
20 PRINTIERINT:¿ERINT 
BSO EFRINT"EL numero total de "As 
40 FRINT"vendido es "A 
B3S0 DE = DE - A 
B60 ZA = AXFV 
7% PRINT:PRINT"EL producto de" 
E80 PFRINT"esé venta fue $'2A 
096 A = TNT C(AXEVx100)/100 + CA 
200 BOSUE 1840 
910 RETURN 
A E AAA 
MMM Me MMMM MI MMMM 
360 REM Informe al Gerente 
240 LS 
DO TE CA + DE 2 1 THEN 15105 REYM bancarrota 
960 IF CA + DE > 9999 THEN PRINT "Has conseguido 
mas de $10,000 y" ¿FRINT"puedes ya retirarte..."1:0 
OSUB 1840: GOTO 1390 
970 PRINT:IFRINT"Informe de las tiendas, senor," 
980 FRINT TAB (6); "para la semana No "SE 
990 PRINT:¡FRINT"ELl capital a mano es $" INT(CA*XILO 
0)/100 
1000 PRINT"Los costos de mantenimiento son $"L2M"a 
la semana" 
1010 PRINT:PFRINT"Tus departamentos tienen "DEFAS 
1020 FRINT TAB(6)i "valorados en $" INT (DEXFV*100)/ 
100 
1070 PRINT:FRINT"Se estan vendiendo a $"EV" cada 
uno" 
1040 FRINT"y cuesta $"C0" fabricarlos." 
1050 FRINT¿FRINT"Estas empleando ahora unos" 
1060 FRINT TR" trabajadores, y les" 
1070 FRINT"pagas $"SA" a cada uno, asi que! 
1080 FRINT"los salarios te costaran esta semana 
"SAxTR 
10904 FRINTi¡PRINT "Cada persona puede hacer "FR 
1100 FRINT A$" a la semanas lo que hace" 
1110 PRINTUun total de "ER*TR 
1120 RETOFN 


GO. (4 4 90 0 00 0 0 


O 


O 


oO. 0 


O. O y 


1130 INFUT "Cuantos quieres producir"iCuU 

1140 1F CU = 0 THEN RETURN 

11530 FRINT 

1160 IF CU*CO + CA THEN FRINT "No tienes suficien 
te dinero":G60TO1130 

1170 1F CU FRTE THEN PRINT"No tienes suficiente 
gente FRINT"en tu plantilla para hacer "¡¿FPRINT TA 
B(60 "todos esos" GOTO 1130 

1180 FRINT"Si, senor«.«. el objetivo de esta sena 
na No "SE 

1190 FRINT"es "CUiAS 

1200 El = INTCCU — RNIDC1)*CU/D> 

1210 GOSUE 1840 

1220 PRINT:PRINT"EL numero de "AS 

12370 PRINT"“que hemos conseguido fabricar en esta 
semana No "SE 

1240 PRINT"fue de "CU..." 

1230 DE = DE + MA 

1260 CA = CA -COx*xCU 

1270 GOSUB 1840 

1280 RETUEN : 

1290 REM Ata Mea DE DA MD DE Al E ADA 
MRRA A A A 

1700 REM plántilla 

1310 PRINT"Cuanta gente quieres" 

1320 INPUT"contratar's 

1330 TR = TR +A 

1340 PRINT:FRINT"La plantilla total es ahora" 

13300 FRINT"de unos "TR" empleados" 

1360 GOSUB 1840 

1370 1F A +0 THEN RETURN 

1380 GOSUB 2730 

1390 PRINT"A cuanta gente" 

1400 INPUT"quieres despedir"3A 

1410 1F A = "0 THEN 1480 

1420 TF A TR THEN 1390 

1430 A=INT(RND(-1)x*A + 1) 

1440 GOSUB 1840 

14530 PRINT:FRINT “Los sindicatos te permitiran" 

1460 PRINT "despedir a "A 

1470 TR = TR - A 

1480 GOSUB 1840 

1490 RETURN 


o. oO 


2. QQ O $. QQ 


Gs 0: O 20 


O 


O 
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O! e O Y 
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1500 
RARA 
1510 
1520 
1030 
1540 
1500 
1560 

cia" 
1370 
13500 
1090 
1600 
1610 
1020 
1030 
10440 
10350 
1660 
AAA 
1470 
1080 
1690 
1700 
1710 
1720 
LO 
1740 
17300 
1760 
1770 
1780 
1790 
1800 
18910 
183230 


FREE A MM DIED A A A 
RMN MR A 

REM bancarrota 

FRINT¿FRINT"Estas en bancarrota!!!" 

GOSUBE 1840 

FRINT¿FPRINT"Oh, que pena!!!" 

GOSUE 1840 

FRINT¿FRINT"Aun asi, coseguistes que el nego 


FRINT"marchara durante "SE" semanas" 
GOSUB 1640 

PRINT"Aprieta la S* si quieres volver a" 
FRINT"hacer de Gerente ...' 

PRINT" 60 “N* si quieres dejarlo)" 

Ab= INEEYÉ 

IFA$="" THEN 1620 

[EF A$6="S5" OR AS="s" THEN GOTO 10 


END 

A AAA, 
Me Me eMe Me MM A 

REM inicializacion 
RANDOMIZE 

FOR Z= 1 TO ENDGidxB6 + 1 
READ AS 

NEXT Z 

CA = 500 + INT CRND 1) 500) 
DE = 100 + INTCRND (1) D00) 
PYV o: 10 + INTC(RND 1) AD) 

CO == 7 + TNTCORND 11) 

IFE CO == FYVO THEN 1730 


TR = 7 + INTC(RND 1) 10) 


SA = 12 + INTORND il) AF) 

FR o = E + TNT CORND (C1)*6) 

CM = 100 + TNT C(RND (1) 20) 

SE = 0 

RE = 1¿REMRE es el factor de resistencia a 


las ventas 


1830 
1840 
1850 
1360 
bones" 
1870 


RETURN 

REM subrutina de retardo 

FOR Z.= 1 TO FTOO0¿NEXT Z¿ RETURN 

DATA"libros de cuentos", "motocicletas", "tron 


DATA"pucheros", "extintores", "porrones" 


O. O: Or O 


"0 O $ > 0 € E O O 


1880 DATA"pantalones de pana", "cascos de bombero" 
"anzuelos" 
1890 DATA"diccionarios" 
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cetro ao, 


JUEGOS DE DADOS 


Los dados han sido y siguen siendo uno de los juegos más popula- 
res que hayan existido —ya se apueste alto, bajo o nada—. Indepen- 
dientemente de que estén hechos de madera o piedra o labrados en los 
huesos de los animales matados para alimento, de que tengan cuatro o 
seis caras, los dados han sido un motivo de diversión para una inconta- 
ble cantidad de personas a lo largo de la historia. 

Los dados, un medio físico de demostrar la indocilidad de la suer- 
te, se emplearon y se emplean para predecir el futuro y, como todos 
los oráculos, es probable que tengan cierta responsabilidad por haber 
cambiado alguna vez la corriente de la historia. 

En Troya los griegos jugaban a los dados así como lo hacía Marco 
Antonio en Alejandría. Italia y Francia contagiaron a la Europa me- 
dieval su gusto por los dados, gusto que ha continuado ininterrumpi- 
damente hasta nuestros días. En este capítulo del libro, investigaremos 
la manera de utilizar el generador de números aleatorios del ordena- 
dor en lugar de los dados físicos. Sin embargo, el lector no tardará en 
descubrir que los dados no pierden su atractivo por el hecho de existir 
sólo en el programa de su ordenador más que en una forma física 
evidente. 

Jugar contra el ordenador en vez de contra otro ser humano cam- 
bia en cierto modo el «sentimiento» ligado a los dados. ¡El no tener 
que pagar cuando se pierde es una de las grandes ventajas! 

Hay una gran variedad de juegos de dados diversos, todos ellos con 
diferentes, y a veces, intrigantes nombres. 
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Los juegos de dados que se incluyen en este capítulo son: 


OJOS DE SERPIENTES (SNAKES EYES) 

UNO Y VEINTE (ONE-AND-TWENTY) 

SIETE/ONCE (SEVEN/ELE VEN) 

POR ENCIMA Y POR DEBAJO (OVER'N'UNDER) 

SIN SUDOR (NO SWEAT) y 

CHEMIN DE ORDENADOR (CHEMIN DE COMPUTER). 
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CHEMIN DE ORDENADOR 


Este juego está basado, como estoy seguro de que ya se habrá 
dado cuenta el lector, en «Chemin de Fer». En éste, el jugador huma- 
no y el ordenador lanzan por turno cinco dados y van sumando los 
puntos de cada vez. El jugador tiene que conseguir un total de puntos 
más alto que el del ordenador. 

Sin embargo, este juego no es tan simple como parece. Todos los 
dados que caigan en cinco o en dos han de volverse a tirar y el total es 
sólo el último número del resultado (es decir, un total de 27 se cuenta 
como 7 y un total de 13 como 3). 

Hay tres totales especiales: 7 (un Natural), 8 (La Petite) y 9 (La 
Grande). Los nombres sólo se adjudican cuando el total relevante se 
consigue a la primera tirada (por ejemplo, los dados que cayeron en 5 
Óó 2 no se han vuelto a tirar). El jugador humano (y el ordenador) 
siempre insisten en una tirada de 7, 8 Ó 9 con el primer lanzamiento de 
los cinco dados. 

Si se fija en el listado del programa, verá que después de inicializar 
o sembrar el generador de números aleatorios en la línea 20, de borrar 
la pantalla y de inicializar en cero el contador del programa (JUEGO) 
y las variables del marcador del jugador humano (P1) y las del marca- 
dor del ordenador (B1), el programa va a la línea 330, en donde 
comienza el juego propiamente dicho. 

Como muchos otros programas de este libro, hay una rutina con 
bucle de retardo al final del listado, a la cual se llama varias veces 
durante la partida para mejorar la velocidad del juego y para darle al 
jugador humano la posibilidad de leer en la pantalla lo que está suce- 
diendo antes de que el programa se lance a correr, de borrar la panta- 
lla y de dejarle bastante inseguro de todo lo que acaba de suceder. En 
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este programa hay dos bucles, uno más largo que el otro y que además 
imprime un par de líneas blancas antes de volver al programa prin- 
cipal. 

La línea 330 llama un retraso y después borra la pantalla antes de 
aumentar el contador JUEGO en la línea siguiente. Hacia la línea 350 
se le dice al jugador humano de qué juego se trata y después el 
ordenador anuncia que, como él va a adoptar el papel de la banca y 
ésta siempre abre el juego, será él quien tire primero. Se traba enton- 
ces la subrutina de tirar los dados que comienza en la línea 70. Verá 
que el bucle contador G se usa (línea 80) para ajustar la variable A 
a un valor escogido aleatoriamente entre uno y seis de cada vez por 
medio del bucle. Si el dado cae en cinco o en dos (línea 90) se le 
vuelve a ajustar en cero, antes de que la línea siguiente imprima el 
valor. 

La ejecución total se mide sobre una variable D y luego los dígitos 
más importantes son divididos a partir de ésta (por ejemplo, 27 se 
reduce primero a 17 y después a 7) hacia la línea 150. El total cam- 
biante se imprime en la pantalla de cada vez. Después de un retraso el 
ordenador imprime “*el total de la primera tirada es...” y después 
verifica (líneas 180, 190 y 200), si se ha dado una de las tiradas espe- 
ciales. 

Si ha sido así, se imprime un mensaje a este efecto. Si no ha 
sucedido nada de esto, el ordenador llega a la línea 210 donde ve si 
hay que volver a lanzar algún dado (C se incrementa con uno cada vez 
que sale un 2 o un $, ver línea 90). Si no hay que volver a tirar ningún 
dado, el ordenador continúa hasta la línea 410 e imprime '* Así que mi 
total final es...”. Sin embargo, si C no es igual a cero, el ordenador 
atraviesa otro bucle (240 a 300) para volver a tirar esos dados. Otra 
vez aquí se rechazan los dados que caigan en dos o en cinco (línea 
280). 

Una vez que el ordenador ha tirado, le toca tirar al jugador huma- 
no. En realidad es bastante poco lo que éste tiene que hacer a estas 
alturas del juego. Una vez que ha presionado RETURN (líneas 440 y 
450), el ordenador lo hará todo por él, utilizando la misma rutina que 
al principio del programa, para tirar los dados en su lugar y aumentan- 
do su total al mismo tiempo. 

Cuando ya han tirado los dos, el ordenador decide si ha sido él 
quien ha ganado al jugador humano o a la inversa o si han quedado 
empatados. El jugador que gane más juegos de los nueve que compo- 
nen una partida es el ganador (y los juegos empatados no cuentan). 


En la línea 670 se le dice *“los totales hasta ahora son...” y —si 
todavía no se han jugado nueve juegos— el ordenador hace algún 
comentario del tipo de '*Parece que voy ganando” o "Parece que tú 
llevas ventaja”, antes de volver al programa principal. 

Una vez que el ordenador ha detectado que se han jugado nueve 
juegos (hacia la línea 700), entra en acción la rutina que comienza en 
la línea 750. El ordenador le dice al jugador humano '*Bueno, mucha- 


cho, parece que hemos llegado al final del juego”” y después determina 


quién ha sido el ganador total de la partida. 

El jugador humano se lo pasará muy bien jugando a este juego. El 
«Baccara», del que se deriva «Chemin de Fer», es un juego italiano 
que se introdujo en Francia hacia 1490 durante el reinado de Car- 
los VII. 

Este es el aspecto que tiene en acción: 
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GEGGSES 


A 
A 
lara 
lia 


de 
E 


E 
e 
dl 
de 
+ 


558555 


; 
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43% 
2... $ Verte Es sl vaz! 


MIES 554 PeeronaRIIGGGIGOSOIGOGOSNISSSOSOSSSSSSSS 


Los totales hasta ahora en 
'Chenin de Ordenador” son 


¿ Para Mo y ¿ Para blera 


Parece que llevas ventaja '' 


Blen, muchachos parece 
que henos llegado al final 
del juego. con un total 
de nueve LIPAdAZ... 


por una vez. eres LU 


el que me ha vencido! 


oracias por el Juegos ero 
o ade ta ES 
TOO is e 
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Y este es el listado del programa: 


10 

O 

SO 

40 

10) 

60 

70 

80 

0 
100 
110 
120 
130 
140 
130 
160 
170 

” D 

180 
190 
200 
210 
220 
230 
240 
ao 
260 
270 
280 
290 
300 
310 
O 
O) 
340 
AO 


REM Chemin de ordenador 

RANDOMIZE 

CLS 

JUEGO = 0 

Bl = 0:F1 = 0 

GOTO 330 

D=01 C=0 

FOR G=il TO 5: A=INT(RND (-1)+*6)+1 

IF A=2 OR A=5S THEN C=C+1 

FRINTA; 

GOSUB 930 

IF A=2 OR A=5 THEN A=0 

D=D+A: NEXT G 

PRINT:¿PRINTD; 

IF D*9 THEN D= D-10:¿FRINT:¿PRINTD:¿GOTO130 
GOSUB 900 

PRINT:FRINT"El total en la primera vuelta es 


IF D= 9 THEN FRINT"y es La Grande... "RETURN 
IF D=8 THEN FRINT "y es La petite... "RETURN 
IF D= 7THEN PRINT"y es un Natural... "¿RETURN 
IF C=0 THEN RETURN 

GOSUE 930 

FRINT:PRINTC"debe echarse otra vez" 

FOR A=1 TO € 

GOSUB 930 

E=INT (RND (-1)*6)+1 

FRINTEs 

IF E= 2 OR E=5 THEN E=0 

D=D+E 

NEXT A 

IF D:*9 THEN D=D-10:FRINTD¡¿:GOTO 310 

RETURN 

GOSUB 930: CLS 

JUEGO=JUEGO+1 

FRINT:PRINT"S3%%* Este es el juego"dUEGO"<<*<< 


"¿ PRINT 


360 


ERCINT 00 dd 6d dd dE IE FM MI DE ME IE E II IE A 


RRA! 


370 


FRINT"Ahora, yo hago de banquerOk..." 
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O. = 5O. Or 01 ¿O 


OÓ O o 0 


O 


O 


TT “Y a. 


380 


O AS 


RR 


290 
400 
410 
420 


50) 


GOSUBE 70 

GOSUB 900 

FRINT:¡FRINT"Asi que mi total final es"D 
GOSUE 9200 
EA 


HAMAS! 


440 
y AS 
430 


INFUT"Aprieta RETURN para tirar tus dados, " 


PUENTE E HE IM ME ME DIM II MI A 


RN 


440 
470 
480 
ADO 
300 
310 
a) 
do 0 
GAO 
O 
3600 


J:=D 

GOSUE 930 

GOSUE 70 

EFRINT:FRINT"Asi que tu total final es'"D 
FRINT: FRINT 

GOSUBE 930 

FRINT"Computadora", "Humano" 

GOSUE 900 

FRINTI,D 

GOSUB 930: FRINT 

FRINTU EEE AE EII 


E AN 


570 
580 
590 
600 
610 
620 


FRINT TAB CD): 

IF J= D THEN PRINT "Hemos empatado": GOTOG2O 
IF JD THEN FRINT"YO soy el"¡:B1l=B1+1 

IE DJ THEN FRKINT" Tu eres el "31F1=F1]+1 
ERINT" vencedor esta vez!" 

FRINTU SADA DADA AAA AAA AAA EEE EEE 


EEN 


OO 
640 
ae) 
660 
670 
at 10) 
690 
700 
710 
pie 
TO 
taja 


FRINT:+FRINT 

GOSUE 900 

FRINT"Los totales hasta ahora en" 
FRINT"*Chemin de Ordenador* son" 

FRINTEi" "para mi, y'"Fi'para Ciu.." 
FRINT:ERINT 

GOSUBE 930 

IFE Bl + Fl <= 9% THEN 730 

IF El << F1 THEN EFRINT "Farece que voy ganand 


IF Fi + El THEN EFRINT "Farece que llevas ven 


IN] '” 


O” 0 590 UD Qe LO 0: O Or O 


O 


O 


o oO 


O: 730 GOSUB 900 ES, 
740 GOTO3F3O : 
730 REM fin del juego | 

Oi 760 FRINT:PRINT 10 
i 770 PFRINT"Bien, muchacho, parece" 
| 780 FRINT"que hemos llegado al final" 

O | 790 PRINT"del juego... con un total" ! O 
800 FRINT"de nueve tiradas..." ! 

' 810 GOSUE 900 

O i 820 1F Fil * B1 THEN FRINT "Y por una vez, eres tos O 
: WU" PRINT"el que me ha vencido!":G0TO 840 | 
! 830 IF Bi * Fi THEN FRINT "Y una vez mas, la tod 

o l opoderosa maquina" :¿PRINT"prueba que es la"¿FRINT"s | O 
i uprema campeona!!!" 
840 GOSUB 9200 ] 

O) 830 PRINT"Gracias por el juego, muchacho" o 
860 PRINT"debemos repetirlo otra vez," 

O : 870 FRINT"cuando veas que te sientes” : o 
! 880 PRINT"afortunadO....oooooooanona” H 
890 END ( 

O 900 FOR Z=1 TO 1000: NEXT Z 1 0) 
910 PRINT:FRINT 
920 RETURN 

O ! ZO FOR Z= 1 TO SOO: NEXT Z:RETURN | O) 
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SIETE/ONCE 


Es éste otro divertido juego de dados. En SIETE/ONCE el objeti- 
vo que han de alcanzar los jugadores cambia en cada partida. Está 
basado en otro juego llamado CRAPS y los jugadores han de conse- 
guir en cada baza o jugada el número que se ha fijado para esa jugada 
(más abajo veremos cómo se fija). 

Craps es la versión americana de un antiguo juego de dados inglés 
llamado Hazard. En SIETE/ONCE se ha suprimido el complejo siste- 
ma de apuestas, dejando sólo la parte más divertida que es el juego en 
sí mismo. En vez de andarse preocupando por computerizar las apues- 
tas desiguales, el jugador puede concentrarse en pedir al cielo que le 
salgan buenos dados. 

En este juego el jugador juega contra sí mismo. El ordenador lleva 
la cuenta de las bazas que va ganando o perdiendo el jugador humano, 
de modo que éste sabe en cada momento del juego cómo lo está 
haciendo. 

Se tiran dos dados al mismo tiempo. Si al jugador le sale un 2, 3, Ó 
12 en la primera tirada, pierde esa baza. Conseguir un 7 o un 11 en la 
primera tirada es lo mejor que le puede suceder a un jugador ya que 
ganará esa baza sólo con haber tirado esa vez (por esto el juego se 
llama SIETE/ONCE). 

Cualquier otro número que le salga en la primera tirada se convier- 
te en el número que ha de alcanzar el jugador en la siguiente baza, 
antes de que le salga un 7 o un 11. Si consigue que le vuelva a salir el 
mismo número en la siguiente tirada, gana esa baza. Sin embargo, si le 
vuelve a salir un 7 o un 11 antes de haberlo conseguido, pierde la 
baza. 
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Estas son algunas instantáneas del juego en acción: 


Las puntuaciones hasta ahora! 
Uictoriasi 9 Derrotasi Ú 
Tienes $ 100 


¿OS 03005 


en 7411 has conseauido 5 
lu objetivo es el numero 5 


Y este es el listado de SIETE/ONCE: 


l 
| 
1 
| 
I 
] 
) 
' 
i 
| 
i 
i 
) 
l 
! 
| 
l 
! 
i 
d 
i 
i 
pl 
t 
| 
| 
! 
! 
| 
y 
I 
y 
! 


o 0-9 
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10 REM 7/11 

20 B$ = "En 7/11 has conseguido" 

ZO J=0:V=0: D=0:DI=1053 

40 CELS 

DO PRINT:FRINT"Las puntuaciones hasta ahouorar" 

60 PRINT"Victoriasy"WV" Derrotas '"D 

7O Ju=Jri 

20 Di=DI-3 

390 PRINT"Tienes $"DI 

100 FRINT:FRINT"Esta es la vuelta No"J 

110 GOSUE 200 

120 1F A=7 OR Az 11 THEN 2300 

130 IF A=2 OR A= 3 OR A= 12 THEN FRINT "asi. que 
este es el final de la vuelta":50TO 320 

140 F=A 

150 PFRINT"Tu objetivo es el numero'"F 

160 GOSUBE 200 

170 1F A= F THEN 300 


O, O- 0 04 0 QU. 


180 1F A= 7 OR A= 11 THEN 210 : 

¡ 190 GOSUE 340:60T0150 l 
eE 200 N=0 O 
210 FRINTi¡FRINT"Aprieta “Tf para tirar los dados | 
4 n ] 

O 220 NeN+Vi IF. INKEYS$="" THEN 220 : O 
| SO. C=INT (RAND 1) *6)+1FRINT"Has sacado Ln" ' 

¡ 240 GOSUE 340 
O 20 B=lÑT (RND Cia) ERINTUy E O 
200 A=B+C 

270 PFRINTi¡FRINT ESTA : 
O | 280 GOSUB 740 O 
290 RETURN y 
| SQ0 PRINT"Y tu has vencido": V=W+liDl=D +20: 56070 
O | 320 0 
210 FRINT"Y tu pierdes" DeD+i | 
| 320 GOSUE 340 
Ol 320 GOTO40 ¡O 
¿ 590 FOR Tel TO SO0¿NEXT T 1 
350 RETURN 
i 1 
| 
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SIN SUDOR 


El nombre de este juego se deriva de uno de los nombres con que 
se designaba en antiguo inglés al juego a partir del cual éste se ha 
desarrollado. Conocido como «Sweatcloth», primitivamente se jugaba 
con tres dados metidos en un «zueco» de madera. La variante más 
conocida de este juego puede verse todavía hoy en los casinos ameri- 
canos en donde se le llama «Birdcage» debido al instrumento que se 
usa para jugar. 

En el «Birdcage» se juega con tres dados metidos en una especie 
de jaula metálica que puede girar en torno a un eje central. Una vez 
que se han hecho las apuestas, se gira la jaula. Se supone que con esto 
se asegura que los dados se agitan como es debido ya que, de hecho, 
el empleado del casino no llega a tocarlos. 

Las apuestas en el Birdcage, y Sin Sudor, son rápidas y sencillas y, 
aunque el jugador pueda pensar que tiene todas las probabilidades de 
su lado, pronto aprenderá lo fácil que es llegar a perder hasta la camisa. 

El jugador apuesta una cantidad determinada (véanse las líneas 50 
y 60) que no puede sobrepasar el caudal total con que cuenta para las 
apuestas (que está contenido en la variable D, de «dinero», véanse las 
líneas 30 y 250), y después escoge un número entre el uno y el seis. La 
cantidad de la apuesta se resta al caudal total y luego se tiran los tres 
dados. Por cada dado que caiga con el número por el que el jugador 
ha apostado, éste recibe una cantidad igual a la apostada. 

Como verá, esto significa que para hacer algo de dinero, el jugador 
ha de conseguir que le salgan dos dados, por lo menos, con el número 
por el que ha apostado; en el caso de que le saliera sólo uno, se 
quedaría igual. La necesidad de tener que sacar dos veces el número 
escogido es lo que le da al casino una ventaja tan grande en este 
juego. 


Después de inicializar o sembrar el generador de números aleato- 
rios en la línea 20 y de ajustar en 30 la variable del dinero (D) de que 
dispone en total el jugador en la línea 30, el ordenador va a la subruti- 
na que comienza en la línea 240 y que imprime: 


Ao dd al ode od od aa al ade ode od ole ode ode od ol ol ade od ok ok o 


“tu capital asciende a 30 dólares” 
Add od o ode ode od ad ole ode od od lol od od ad al ol ade od ol ok ale ode 


Tras esto se inicia el juego propiamente dicho. 

En la línea 50 se le pregunta al jugador cuánto quiere apostar y se 
asigna a su elección la variable A. Esta se compara con el caudal con 
que cuenta en total el jugador (en la línea 60) para ver si está intentan- 
do apostar más de lo que en realidad tiene. Habiendo sobrepasado 
este obstáculo, la línea 70 se encarga de substraer al caudal la cantidad 
de esta apuesta y después el ordenador le pide que introduzca los 
números por los que apuesta. 

El bucle C, que va de las líneas 100 a la 180, tira los dados y 
compara cada tirada con el número por el que el jugador ha apostado, 
diciéndole, después de cada tirada, lo que ha sucedido. Las ganancias 
del jugador (si llegara a haberlas) se añaden también en este bucle. 

Después de cada jugada, el dinero del jugador se compara a 250 
dólares (de haber ganado más de 250 dólares, no podrá seguir jugando 
por haber sobrepasado los límites de la casa) y después con cero (a los 
que no les queda más dinero no se les permite continuar jugando). 
Pero si todavía no ha ganado más de 250 dólares ni le queda menos de 
cero, se le permite continuar. 

A continuación, una muestra de SIN SUDOR: 


Tu capital asciende a $ 30 
GA 
Cuanto te gustaria apostar?) 


A que numero estas apostando?4 


El dado 1 ha dado ¿ 
MARA 
Tu capital asciende a $ 25 


da Ada abad 


175 


f NY 


176 — 


Tu capital asciende a $425 


IO 


OOOO OOOO 


Tu capital asciende a $2 


JOR 
Cuanto te gustaria apostar?2) 


A que numero estas apostando?) 
El dado 1 ha dado 3 


as] que ganas $ 25 
JOAO AAA 
u capital asciende a 5 55 


ARO 


ERERRERAR RA RERRA RRA RENDER NARRAR RA LARA 
Tu capital asciende a $ 35 


IICA 


DOOR 
Tu capital asciende a 5 55 
ARRIOLA 


A que nunero estas apostando?6 


El dado 1 ha gado 1 
GOO 


Tu capital asciende a $b 
IRA 


OEA 
Tu capital asciende a $0 


IO ROI 


PRRRRRRERRARRA RARA RARARARARERERLARA RARA 


Tu capital asciende a $40 


AAA 

El juego ha terminado, porque no te queda dinero!! 
El juego ha terninado, porque no te queda dinero!! 
El juego ha terminado, porque no te queda dinero!! 
El juego ha terninado, porque no te queda dinero!) 
El juego ha terninado, porque no te queda dinero!! 
El juego ha terninado, porque no te queda dinero!) 


Y este es el listado para que se eche unas partidas con el orde- 
nador: 


! 
¡ 
10 REM Sin sudor | 
ZO RANDOMIZE . 
TO D=ZO 
O 40 LS :GOSUE 230 
50 INFUT"Cuanto te gustaria apostar"iA i 
| 
) 
| 
¡ 
l 
1 


l 
) 
1 
/ 
| 
] 
) 


60 1 A3D THEN 30 

7O DeD-Ar PRINT:FRINT 

80 INFUT"A que numero estas apostando"¡É 
0 1F EX1 OR Bs 464 THEN 50 
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178 


l 
| 
! 
l 
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| 
i 
t 
i 
i 
| 
| 
| 
! 
| 
| 
i 
l 
¡ 
l 
! 
' 
| 
l 
| 
| 
| 
! 
l 
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| 
| 
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! 
J 
| 
l 
l 
1 
I 
1 
l 


100 
110 
120 
130 
140 
130 
=D+(6 
160 
170 
180 
190 
ZOO 


210 


FOR C= 1 TO 3 

6:=0 

GOSUB 270 

DA= INT (RAID (1)+*4)+1 

FRINT:PRINT"El dado"C"ha dado"DA 

IF DA = B THEN G=AFRINT"asi que ganas $"6:D 


GOSUB 230 

NEXT E 

GOSUE 270: GOSUB 270 

IF D+ 2530 THEN 300 

IF D* Q THEN 40 

FRINT"El juego ha terminado, porque no te qu 


eda dinero!!" 


PRO 
230 
* ke "u 
240 
250 
A + " 
260 
270 
280 
290 
COMO 
SO 
SO 


AO 


GOTO 210 


EFRTOINT UD DE A A IE EA AM DE EA 
FRINT" O Tu capital asciende a $%D 


FSFRTNT 1 e e e e MM Me A e MA AM A e e 


RETURN 

FOR F=1 TO 1000 

NEXT E 

RETURN 

FOR Je 1TOZO 

FREINT"Has alcanzado los $201" 
FRINTTAE 

NEXT 3 


Or Ue “E o 2 O 


O 


O 


UNO Y VEINTE 


Continuamos ahora esta sección dedicada a los dados con UNO Y 
VEINTE que, como se había dado cuenta nada más leer su nombre en 
la introducción a este apítulo, es una versión en dados de un juego de 
cartas conocido con el nombre de «Pontoon». 

Este juego es bastante simple, pero requiere un tanto de frialdad 
por parte del jugador, así como cierta habilidad para adivinar qué 
números serán los que salgan en la siguiente tirada. En este juego el 
jugador humano juega contra el ordenador. 

El jugador humano siempre abre el juego. Puede tirar los dados 
cuantas veces quiera intentando conseguir un total lo más cercano 
posible a 21, pero sin pasarse. Puede dejar de tirar en el momento que 
quiera sumándose los puntos que ha conseguido. 

Si se pasa de 21, el ordenador gana esa baza automáticamente. 
Una partida consta de cinco bazas o jugadas y el ganador de más 
jugadas es el que gana la partida. 


Después de inicializar algunas variables (entre las que se incluyen 
HS para el marcador del jugador humano y CS para el marcador del 
ordenador) en las líneas 20 y 30, de borrar la pantalla en la línea 40, el 
ordenador pedirá al jugador humano que «Presione *R” para ““tirar” y 
*S” para '“pasar”». La palabra «pasar» O «quedarse» significa que al 
jugador le parece bien el total que ha conseguido con las veces que ha 
tirado y no quiere tirar más, dándole al computador la posibilidad de 
tirar e intentar ganarle. El jugador aprenderá en seguida que la veloci- 
dad con la que introduzca 'R” o “S” puede afectar al número que sal- 
ga al tirar, ya que el espacio de tiempo comprendido entre la aparición 
de «Aprieta la "T” para tirar...» y el momento en que el jugador humano 
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cumple la orden, presionando *T” o *P”, se usa para crear un número 
(N) que —junto con el total que el jugador tenga en ese momento— 
se utiliza para inicializar el generador de números aleatorios para la 
siguiente tirada. 

Las líneas comprendidas entre la 50 y la 170 controlan la tirada de 
dados del jugador humano y el ordenador sólo expulsa este ciclo 
cuando éste decide «pasar» (o «quedarse»). La lógica total del juego 
del ordenador está contenida en la línea 180 que determina si le mere- 
ce la pena arriesgarse para intentar sobrepasar el total del jugador 
humano. Si decide tirar, las líneas comprendidas entre la 190 y la 250 
controlarán la tirada. 


Una vez que el ordenador ha decidido que ya ha tenido bastante, 
usa las líneas 260, 280 y 290 para determinar quién ha ganado. Si el 
jugador humano y el ordenador tienen los mismos puntos, o los dos 
sobrepasan 21, en ese caso, esa mano o jugada no cuenta (en la línea 
320 se le indica) y no se aumenta ni el CS ni el HS (el marcador del 
ordenador y del jugador humano, respectivamente). La línea 280 seña- 
la una victoria del ordenador añadiendo uno al CS e imprimiendo ''yo 
gano”, mientras que la siguiente línea añade uno a HS e imprime “tú 
ganas”. 


Como en el caso de «Chemin de Ordenador», en el que ganaba la 
partida el jugador que consiguiera ganar más jugadas, bazas o manos 
de las nueve que componen el juego, en UNO Y VEINTE gana el que 
consiga más victorias de las cinco jugadas de que consta el juego. La 
línea 390 mira si ya ha sucedido esto por parte de alguno de los 
jugadores y si ve que sí ha sucedido, envía el programa a la línea 450 
en la que se imprime (junto con algún comentario sarcástico) el resul- 
tado total de la partida. Si todavía no se han jugado cinco manos, la 


línea 400 le dice al jugador humano ''Aguarda la siguiente vuel- 


a Y después de una breve pausa (línea 430), la siguiente jugada 
le toca al jugador humano. 


Echémosle ahora un vistazo a una parte del programa en acción: 


tu total es 16 

a ais e: 

lo saque yn] 

que ni total 053 


Si , 
mad e 


A saque Und 


sl aga mitota. 656 


Ena una 


dls 


4 ñ 34 B EN E 
- a a 
E e hi total es 14 


3 eS uno 


e mi total es ¿0 


Die crac al 
106 393N0.. 


Yo saque Un 5 


dl 5] 1 que mi total ps 13 


To saque und 


asi que mi total es le 

Ho 33qUe Y un 3 

as] que mi total es 21 

Esta vuelta esta empatada, no Puntua 

II RRIOOROOIOOOIOIOOOR 


Despues de esta vueltas la puntuacion del juego es 
TE l 


daa 0111010010104 


Aguarda la siguiente vuelta... 
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Este listado le permitirá al lector retar (y con un poco de suerte 


del juego 


ganar) a su ordenador en UNO Y VEINTE: 


80 
up 
90 


100 


O E Q 


AO 
210 
2 


| 
| 
1 
/ 
| 
| 
' 
' 
1 
| 
i 
1 
J 
| 
) 
| 
| 
| 
¡ 
4 
| 
¡ 
t 
t 
| 110 
| 
| 
' 
| 
] 
] 
/ 
1] 
¡ 
i 
t 
i 
' 
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| 
| 
I 
| 
/ 
i 
; 230 


182 


REM Uno-y- 
HS=01 05:=0 
H=01 C=01 N= 
CLS 


FRINT"Aprieta la *T" 


A$=INKEYS 
N=N+1 
IF Asco nt" 


THEN 60 


IF A$="P" 


es"H:G60T0180 


RANDOMI ZE 
GOSUB 4-30 


veinte 


O 


AND A$<: 


OR A$="p" 


R=INT(RND (-1)*6)+1 


PRINT:¿FRINT"Has sacado 


H=H+R 
PFRINT"asi 
GOSUE 40 


que tu total 


PRINT:GOTOSO 


IF CC H AND 
: 21 THEN 


R= INT(RND 
GOSUB 430 


260 


(-1)*6)+1 


spa 


0<22 OR C> 


para tirar, 


un" R 


es" 


21 OR H> 


FRINT:PRINT"YO saque un"R 


C=C+R 
PRINT"asi 


que mi total es"C 


Pes 


AND As: do "n ” 


para pa 


AND Ag 


THEN CLSiFRINT"tu total 


21 OR Hei A 


O O (O) O 0-0 


O 


240 GOSUB 430 
250 GOTO180 


| 
) | 
| 1 

O : 260 IF H=C OR H>21 AND C*21 THEN 320 O 
i 270 GOSUB 510 ' 
280 IF (C>H OR H>21) AND C<22 THEN PRINT ,"Yo ga | 

O ! no!!"3:08S=C5+1 ES, 
| 290 1F (C2H OR C>21) AND 0222 THEN PRINT ,"Tu ga |! 
¡nas! !"¡¿HS=HS+1 : 

O |. 300 PRINT O 
310 GOTO330 
320 PRINT"Esta vuelta esta empatada...no puntua" | 

O | 330 GOSUB 430 190) 
¡o 340 GOSUB 510 | 
350 PRINT"Despues de esta vuelta, la puntuacion 

O 1 del juego es" O 
360 GOSUB 430 
| 370 PRINT, "Tu: "HS", y yo: "CS : 

Ó 380 GOSUB 510 MO) 
! 390 IF CS+ HS = S THEN GOTO 450 | 
400 PRINT:PRINT"Aguarda la siguiente vuelta..." 

O ¡410 GOSUB 430:GOSUB 430 ¡O 
420 CLS:GOTOZO ] 

O ¡ 430 FOR O=1 TO 900:NEXT O ' O 
440 RETURN ] 
430 FRINT:PRINT"Este es el final del juego" ' 

O! 460 FRINT:PRINT"Funtuaciones fimales:" ' 0 
| 470 FRINT, "Tur "HS 
| 480 PFRINT, "Yo: "CS:FRINT ' 

Ol 490 1F CS+*HS THEN FRINT"Y te he vencido, humanoi : O 
' de": END ! 
500 FRINT"Y asombrosamente, un simple humano ha 

O E vencido a la maquina!":END | O 
l 510 PRINT:FPRINT "ee 16 dd dd dd DIE IRE 
$ III PRINT : 

O 320 RETURN | O 
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OJOS DE SERPIENTES 


Este juego exige cierta frialdad. El jugador humano y el ordenador 
tiran por turno un par de dados. El jugador suma los puntos obtenidos 
en esta baza y después los añade a su marcador. 

El jugador puede tirar los dados cuantas veces quiera, pero si le 
sale un siete, pierde automáticamente. Así pues, como se puede ver, 
el programa exige que el jugador decida rápidamente si debe tener 
cuidado con lo que se arriesga a perder esa jugada por no alcanzar los 
tantos suficientes o si, por el contrario, debe ser ambicioso y debe 
seguir tirando para conseguir más tantos a riesgo de que le salga un 
siete. 

Como en el juego anterior, el tiempo que tarda el jugador humano 
en presionar RETURN para echar los dados, tiene cierto efecto sobre 
los tantos que consiga. Se puede ver en las líneas comprendidas entre 
la 320 y la 150 que la variable N (que se ajusta en cero en la línea 120) 
se incrementa con uno cada vez en torno al bucle de las líneas 140/150, 
hasta que el jugador presiona las teclas “s”, ““S”, “t”, “T”. 

Si el jugador presiona **t” o *“T” para indicar que desea echar los 
dados, el ordenador va a la subrutina que empieza en la línea 370 en la 
que se borra la pantalla (380) y después se tiran los dados (X y Y). El 
bucle Q se cubre 20 veces, disminuyendo la velocidad gradualmente 
según es atravesado (por el bucle interno, en la línea 430), hasta que 
finalmente —con la línea 420— se imprimen los resultados de las 
tiradas. 

La variable Z se ajusta igual al total de las dos tiradas (en la línea 
480) antes de que el ordenador vaya a la línea 700 para el retraso y 
para imprimir una línea a lo ancho de la pantalla, tras lo cual vuelve al 
inicio del programa en la línea 180, la siguiente a la que envía el 


programa a la rutina de «tirar los dados». Aquí el ordenador comprue- 
ba que el total no es 7 (línea 180) y si no lo es, añade el resultado de la 
última tirada a la cuenta del jugador humano. 

Sin embargo, si el jugador humano señala por medio de INKEY$ 
que «se queda» o «para», la acción va hasta la rutina que comienza en 
la línea 220. Después de imprimir '*Un momento”, el ordenador va 
hasta el bucle de retardo y la rutina de impresión de línea y después 
usa la misma rutina que el jugador humano para tirar los dados y —al 
volver de la subrutina— comprueba que el total no es 7, y si no lo es, 
añade un nuevo total a su marcador. El ordenador tiene un modo muy 
sencillo de decidir si vuelve a tirar... si tiene menos puntos que el 
jugador humano, corre el riesgo. 

Verá que es relativamente sencillo programar juegos de este tipo. 
Una vez que se han calculado las rutinas mecánicas que llevan a cabo 
tareas tales como tirar los dados y aumentar el marcador del jugador 
humano, no es muy difícil calcular una rutina que permita al ordena- 
dor usar las mismas rutinas mecánicas. La mayoría de los juegos de 
dados no requieren mucha inteligencia y su estrategia puede reducirse 
a menudo a un par de instrucciones IF/THEN. Lea algún libro sobre 
juegos de dados —como el excelente Dice Games Old and New de 
William E. Tredd— si quiere sacar ideas que pueda convertir en pro- 
gramas y para aprender a jugar lo mejor posible. Son estas ideas, cuya 
conversión en «algoritmos inteligentes» no debería resultarle especial- 
mente dificultosa, las que harán que su ordenador juegue razonable- 
mente bien contra usted. 

Y por último, si como en el caso de UNO Y VEINTE, el jugador 
humano estipula que ha de ser él quien tire primero, el ordenador 
sabrá exactamente cuál es su objetivo (puesto que ya conoce los pun- 
tos del jugador humano) y, por tanto, llevará ventaja a la hora de 
tirar sus dados, lo que ayuda a superar la estupidez inherente a la 
máquina. 

Este es un ejemplo típico de la ejecución del juego: 


Hu total as E 

o A le e 
Rprleta “1” pira Llra! 
Doy piña sallF, 
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Dado Unol6 Dado dost 6 


Tu total es 12 


Aprieta *T para tirar 


tar 5 A 
0 Para alir, 


Dado unot 2 Dado dos! 6 


Tu total es 20 


Tu total es ¿0 


Aprieta *T para tirar 
009 para salir, 


Un nonento 


Dado unot Dado dos! á 


Dado unol 2 Dado dost 1 


Dado unos ó Dado dos: 4 


Mi total es 94 
Tu total es 22 


Yo gano! 


La puntuacion es 


ci 
[Jo 


Y YOY gAnandO,,. 
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Y este es el listado del juego. 


10 REM Ojos de serpientes 
20 ELO 
20 H=010Z=0 


30 PRINTUJÓN momento, POr Favol au 4" 
60 GOSUE 700 

TO CLStERINTEFRINT 

80 PFRINT"TL total es"HSí; FRINT 

90 GOSUE 710 

100 FRINT"Aprieta *T* para tirar" 
110 FRINT"O *S* para salir." 

120 Nz=0 

130 Wé=INKEEVS 


150 IF Wéxs "3" AND W$23"S" AND W$ <3% "T" AND Hs 
EE THEN RANDOMIZE S60TO130 
160 TF Wé="S" OR N$="=s" THEN 220 
170 GOSUE 370 
180 1F Z= 7 THEN 2330 
O HS=HS+Z 
200 PRINT:ERINT"Tu total es"H3 
210 60TOG6O 
AO PRINTER INTFRINT"Un momentai)" 
Sa GOSUE 700 
290 GOSUB 370 
250 1 Z=7 THEN O 
¿AO CS S+Z 
270 PFRINT¿FRINTUMi total es"CS 
2680 PFRINT"Tu total es"Hs 
290 TF 2032 HS THEN 220 
200 TF CS=HS THEN FRINT"ES ahogado!" 
210 IF CS:<HS THEN 350 
220 GOTOSLO 
SO PRINTi¡FRINT"Tu ganas!" a H=H+1 
240 GOTOS10O 
2390 EFRINT¡FRINT"Yo gano!"10Z=C0Z+1 
280 GOTOSLO 
2370 REM Tira los dados 
280 CLS 


O TS O E E E E 7 


O O 0) 0 


O 


O 
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390 FOR Q=1 TO 20 

400 X= INT(RND (-N)*6)-+1 

410 Y= INT (RAND (-N)*6)+1 

420 FPRINT:FRINT"Dado unos "X" Dado dos "Y 

430 FOR F=1 TO ZAQINEXT F 

440 NEXT Q 

4350 CLS 

460 GOSUB 710 

470 PFRINT"Dado uno: "X" Dado dos: "Y 

480 Z=Xx+Y 

490 GOSUB 700 

300 RETURN 

3510 FRINT:IFRINT"La puntuacion est" 

520 FRINT, "Tui "H 

3530 PFRINT, "Yo "C0Z 

340 TF CZ+H = 9 THEN 380 

000 GOSUB 710 

360 IF H3 CZ THEN FRINT"Vas ganando!" 

370 1 CZH THEN FRINT"Y voy ganando, .." 

380 GOSUB 700 

990 CLS 

600 TF CZ+H=2 THEN 620 

610 60TO040 

620 PFRINTIFRINT:¿FRINT 

630 PRINT"Bueno, muchacho, este es el final" 

640 PRINT" del juego..." 

630 PFRINTFRINT:¿FRINT . 

660 PFRINT"Tu puntuacion final fue"H 

670 FRINT"Y la mia fue"CZ:FRINT 

608% TF H2CZ THEN FRINT"Soy el vencedor !!"1 END 

690 PRINT"Tuúu eres el vencedor! !"END 

700 FOR F=l TO 1000: NEXT Fi RETURN 

F 1 O E E T NT AAA 
'RERINTE RETURN 


Oo. O 0 O 


Ó 000 0 0 Q.'5O y 


O 


O 
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POR ENCIMA Y POR DEBAJO 


Este juego es una adaptación del juego de cartas y dados general- 
mente conocido como «las siete y media». En este juego, el jugador 
apuesta sobre la posibilidad de que el total de puntos conseguidos al 
tirar los dados (se juega con dos) sea: 


— menos de siete 
— siete; O 
— más de siete 


Este vuelve a ser otro juego en el que —a primera vista— parece 
que se le ofrecen al jugador buenas probabilidades. Sin embargo, si 
jugara una partida interminable con un par de dados perfectos encon- 
traría que las derrotas sobrepasan a las victorias en casi un 17 por 100. 

La estrucura del programa no es difícil de seguir. Después de 
inicializar el generador de números aleatorios en la línea 20 y de 
borrar la pantalla en la 30, el ordenador fija en 30 dólares la cantidad 
total de que dispone el jugador humano para las apuestas (variable 
que se llama aquí DI de «dinero»). La línea 50 envía la acción a la 
subrutina que comienza en la línea 450 en la que se imprime esa 
cantidad: '*Tienes 30 dólares”, antes de volver a la línea 60 en donde 
se llama a una subrutina de retraso (líneas 470, 480 y 490). 

Las líneas comprendidas entre la 70 y la 120 le piden que haga su 
apuesta, dándole la clave para introducirla (presione A si apuesta a 
que sale menos de siete; B para siete y C en el caso de que apueste a 
un total superior a siete). Las líneas 130 y 140 leen las claves utilizan- 
do INKEY$ y rechazando (línea 140) toda información que no sea A, 
B-0:s 
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Habiendo recibido una elección válida, las líneas comprendidas 
entre la 150 y la 180 imprimen la apuesta y luego la línea 200 le pide 
que introduzca la cantidad de dinero que quiere arriesgar en ésta. Por 
supuesto, no puede apostar más dinero del que tiene (o por lo menos, 
no se puede en este juego) de modo que la línea 220 comprueba la 
apuesta del jugador (A) en relación con su dinero (DI) y si éste no 
tiene suficiente, imprime: '“No tienes tanto”. 

La siguiente sección tira los dados asignando valores aleatorios 
entre uno y seis a las variables B y C y sumándolos para producir un 
total D en la línea 280. En la línea 300 se le dice al jugador cuál ha 
sido el resultado total de la tirada. 


EL RESULTADO 


Viene determinado por la rutina que va de la línea 310 a la 350 en 
donde se supone primeramente una pérdida (línea 310, con la variable 
G, de «ganar», asignada a la parte negativa de la apuesta del jugador). 
Esto se modifica —si fuera necesario— en la cantidad correcta en el 
caso de que se gane, si es que ha sido así. Se le pagará al jugador 
cuatro veces el dinero que ha apostado en el caso de que haya aposta- 
do a siete y el resultado de los dados sea éste. En el caso de haber 
apostado por encima o por debajo de siete y de acertar, el jugador 
recibirá la misma cantidad de dinero que ha apostado (línea 320 y 330 
y 340 respectivamente). 

Las líneas 370 y 380 le dicen si ha ganado o perdido y después la 
línea 420 comprueba si todavía le queda dinero al jugador. Si le que- 
da, se le ofrece echar otra mano. Si no le queda, el jugador es recha- 
zado severamente. 

Vea una muestra de cómo funciona el programa: 


Merieta CR para apos 


cas E 
El para apostar 


Ep! A O 
"Lo paña apbDostlar 
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1.2. 


Las apuestas estan! 
A - paga lo mismo 


6 - paga dal 


Lo = paga lo Mismo 
Cuanto quieres apostar?ló 
El dado uno da 4 


El dado dos da 4 


con lo que el total es 4 


Y por lo tanto pierdes $ 6 


Ahora tienes $ 20 


DK, nuchacho. es el nonento de 
hacer ¡AN apuesta, 1100104021144 


Aprieta RN para apostar ieños que / 
B' para apostar al 7, 0 
Mi 


para appostar sobre / 


Las apuestas estan) l | 


A - paga lo mismo LL 

B - pagada] 

[ - paga lo nismo == 
[_) 


Cuanto quieres 3pos tar 92h 
El dado uno da 3 


El dado dos da 4 [] 


con lo que el total es 7? pa | 
' por lo tanto perdes $70 O 
| | 
Ahora tienes $ 0 eS 
| | 

de tienes un duro» muchacho 
1 que E que cerrar el casino | J 
lo hay sitio para los arruinados Junto 3 Ml, Ly 


Y este es el listado: 


20 RANDOMIZE 


1 
10 REM Por encima y por debajo O 
¡ 
ZO CLS 


193 


O E A 


40 DIi=O 

30 GOSUE 450 

60 GOSUB 470 

70 FRINT"OR, muchacho, es el momento de" 
80 FRINT"hacer tu apuestan«............. 
90 GOSUE 470 


100 FRINT"Aprieta *A* para apostar menos que 


110 FRINT" 
120 PRINT" 
130 Até=INkKEYS 


"B* para apostar al 7, 0" 
"C* para apostar sobre 7" 


yal 


140 IFA$:<:"A" AND A$xis"a" AND A$<:"B" AND Aé$<:"b 


"CAND AS 2" AND AS"! THEN 130 
130 PRINTiPRINT"Las apuestas estan" 
160 PRINT" A - paga lo mismo" 

170 FRINT" E - paga 4 a 1" 

180 PRINT"  C - paga lo mismo" 

190 GOSUB 470 

200 INFUT"Cuanto quieres apostar" A 
210 GOSUB 470 


220 IF As DI THEN PRINT "No tienes tanto!" FRINT 


2 GOTOZOO 
20 B=INT (RND (1)%6)+1 
240 FRINT ¿"El dado uno da"E 
230 GOSUE 470 
260 C=TNT (RND (-1)*6)+1 
270 PFRINT, "El dado dos da"C 
280 D=C+E 
290 GOSUBE 470 
300 PRINT, "con lo que el total es"D 
310 G=—-A 
320 IF D=7 AND(AS$="E" OR A$="b") THEN G=4x*4 
330 IF D27 AND(AS$="A" OR Ab="a") THEN G=A 
340 1 D:7 AND(A$="C" OR A$z="c") THEN G=A 
3590 DI = DI + 6 
260 GOSUE 470 
370 IF 6:0 THEN FRINT"Acabas de ganar $"G 


280 IF 620 THEN FRINT"Y por lo tanto pierdes $" ( 


G* -1) 
3490 GOSUE 470 
400 GOSUB 450 
410 GOSUE 470 
420 1 DI < 1 THEN PRINT"No tienes un duro, 


much 


acho'"¿FRINT"asi que tengo que cerrar el casino'":PR 


O: 0 Or O O 0-0 


O. 79. 3 


O 


O 


O 


INT"No hay sitio para los arruinados junto a mi.'s | 
END . 
ARO. CLS ; 
440 GOTO 30 
4390 PRINT:FRINT"Ahora tienes $"DI ' 
460 RETURN . 
[| 

| 

| 

1 

| 


O 


470 FOR F=1 TO 1000: NEXT F 
480 PRINT:FRINT 
490 RETURN 


o oO 
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cetro ao, 


INTELIGENCIA 
ARTIFICIAL 


La inteligencia artificial es una meta que todavía no se ha alcanza- 
do. Es cierto que se han escrito programas que permiten a los ordena- 
dores dar muestras de un comportamiento que podría calificarse de 
inteligente, pero la «inteligencia» que exhiben es limitada y efectiva 
sólo en un dominio muy restringido. Es decir, puede parecer que un 
ordenador es inteligente, pero sólo lo será si el medio en el que tienen 
que demostrar esa inteligencia, es un medio limitado. 

En este capítulo del libro, se incluyen cuatro programas que ha- 
rán que su ordenador parezca inteligente y cuya demostración deja- 
rá impresionados a quienes no entienden mucho de ordenadores. 

Aunque hay quienes afirman (como Carl Sagan /n Defense of 
Robots) que los seres humanos no son sino ordenadores bien contec- 
cionados, yo creo que existe un profundo abismo (al menos por el 
momento) entre nuestra propia percepción de nosotros mismos y la 
total falta de conciencia que los ordenadores tienen de su propia exis- 
tencia. A mí me parece que esta percepción de uno mismo es consus- 
tancial a, al menos, un aspecto de la inteligencia. 

Los ordenadores pueden funcionar de un modo extremadamente 
«inteligente» en áreas restringidas. Fíjese el lector en esas pequeñísi- 
mas máquinas de jugar al ajedrez, por ejemplo. Dentro del dominio 
limitado de ajedrez puede crearse una sólida apariencia de inteli- 
gencia. 
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Lo mismo sucede en los limitados universos creados por los progra- 
mas de este capítulo. Uno de ellos es una variación de uno de los 
programas más conocidos que hayan existido nunca, ELIZA, en el 
cual el ordenador hace el papel de un psiquiatra y aparentemente es 
capaz de llevar a cabo una conversación. ELIZA se desarrolló a me- 
diados de los años sesenta y su autor es Joseph Weizenbaum. Intenta- 
ba éste producir un programa que caricaturizara a un psiquiatra roge- 
riano (de la escuela de C. Rogers) y se ha sugerido (véase You're 
never alone with a fluffy micro, de David Tebbutt; MicroScope, enero, 
1983, pág. 9) que Weizenbaum no ha dejado de arrepentirse desde 
entonces de su trabajo en ELIZA. Y no es difícil saber por qué. 

En la inmediata euforia que siguió a la publicación del programa, 
se llegó a afirmar, de un modo bastante a la ligera y sin fundamento 
alguno, que se estaba ya a un paso de que los ordenadores pudieran 
reemplazar a los «doctores de la mente». Eincluso hubo observadores 
que fueron todavía más lejos afirmando que el éxito obtenido por el 
ELIZA abría el camino para la aparición de ordenadores genuinamen- 
te inteligentes. 

Weizenbaum no daba crédito a sus ojos. Posteriormente escribiría 
que al principio se quedó totalmente sorprendido —y lo seguía estan- 
do— de la reacción del público ante el programa. Escrito en LISP en el 
MIT, se podía acceder al programa desde cualquiera de las terminales 
compartidas que había repartidas por el campus. Weizenbaum dice que 
le interesó en gran medida ver que eran muchas las veces en que se 
accedía al programa por la noche, como si hubiera estudiantes preocu- 
pados que se dedicaran a hablar de sus problemas con el ordenador. 
Pero eso no era todo. Los tiempos de acceso eran además muy largos. 
El registro del ordenador demostró que los había que se pasaban 
más de una hora enganchados al ELIZA. 

La misma secretaria de Weizenbaum había trabajado con él du- 
rante los seis meses que duró aproximadamente la producción del 
programa y conocía tan bien como él el funcionamiento de éste. Es 
decir, como el ordenador explora el discurso de la persona en busca de 
«palabras clave» (como «dream», «sueño», O «friends», «amigos»), 
para posteriormente escoger una respuesta adecuada en el banco de 
respuestas que lleva incorporado. En el caso de que no reconozca 
ninguna palabra clave, el ordenador puede incorporar otras palabras a 
partir de las frases del usuario, frases a las que da la vuelta y convierte 
a su vez en preguntas (de modo que una frase como «el buen tiempo 
me pone contento», podría aprovecharse ya sea como «¿por qué te 


pone contento el buen tiempo?», o como una simple afirmación: «el 
buen tiempo te pone contento. ¿Qué te sugiere esto?») y además 
también puede usar un número determinado de otras respuestas («eso 
es interesante, sigue por ahí»). 

Pero a pesar de todo esto y de su familiaridad con el programa, 
Weizenbaum notó que cada vez que entraba en el despacho cuando 
su secretaria estaba accediendo al programa, ésta se mostraba un tanto 
avergonzada y se negaba a enseñarle lo que había salido impreso. 
Cuando Weizenbaum sugirió que se conectase una impresora en la 
unidad central del ordenador para recoger las conversaciones que los 
estudiantes solían tener con éste a altas horas de la madrugada, le 
miraron horrorizados, como si lo que estuviera sugiriendo fuera algún 
tipo de espionaje ilegal o escucha telefónica. (Si quiere saber más 
sobre el trabajo de Weizenbaum, puede que le interese consultar su 
libro Computer Power and Human Reason, W. H. Freeman and Co., 
San Francisco, 1976.) 

Un punto en el que tropezaron todos los primeros investigadores 
en el campo de la inteligencia artificial fue el hecho de que escribir un 
programa que emulara en algún aspecto el razonamiento humano (co- 
mo un impresionante programa de ajedrez producido por Samuels) no 
les acercaba necesariamente ni a la producción de un compartamiento 
que pudiera calificarse de inteligente, ni tan siquiera a una compren- 
sión teórica de los procesos de razonamiento y deducción humanos. 
«El progreso realizado en la producción de un comportamiento inteli- 
gente no significa necesariamente que se progrese en la producción de 
pensamiento» (Norman Whaland, «When Is a Program Inteligent?», 
publicado en la revista Creative Computing, febrero 1981, páginas 
44-49). 

Hay otra manera de abordar el problema, manera que yo he deno- 
minado «si grazna como un pato, es un pato». En el libro The Turing 
Criterion. Machine Intelligent Programs for the 16K ZX81 (Charlton y 
otros, Interface Publications, London, 1982) de cuya edición yo me 
encargué, contesto a la pregunta «¿Qué es el Turing Criterion?» en los 
siguientes términos: 


En 1950, el matemático inglés A. M. Turing propuso lo que 
posteriormente se conocería con el nombre de «criterio Tu- 
ring» sobre la inteligencia de las máquinas. 

Decía éste que si uno se las está viendo con algo situado al 
final de un cable que podría ser una máquina o un ser humano 
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y uno no pudiera decir a ciencia cierta —a partir de las res- 
puestas que le vienen por medio del cable— si se trata de una 
máquina o de un ser humano, «la cosa» al otro lado del cable 
sería, por definición, inteligente. 


Sobre esta base sería posible clasificar muchos, muchos programas 
de ordenador como inteligentes. Ciertamente, la mayoría de los inclui- 
dos en este capítulo del libro lograrían pasar el «test», especialmente si 
el lector está dispuesto a aceptar la posibilidad de tratarse con ciertos 
humanos bastante estúpidos. 

Ya ha llegado el momento de explorar los mundos de la inteligen- 
cia artificial con los siguientes programas: 

— Eliza. 

— Cerebro electrónico (en el que el ordenador intenta romper 
el código que el jugador ha creado). 

— Proboscídeos (su nombre se deriva del adjetivo que clasifica 
a ciertos mamíferos, como elefante. En éste el jugador se 
enfrenta al ordenador en un juego de «concentración»). 

— Amanuense (en el que el ordenador acepta la tarea de 
convertirse en poeta). 


ELIZA 


Empezaremos nuestra investigación de la inteligencia artificial con 
una versión simplificada del programa clásico ELIZA sobre el que ya 
hemos hablado con cierto detenimiento en la introducción al capítulo. 
Como decíamos, el programa explora el discurso del usuario en busca 
de palabras que le sirvan para después contestarle, utilizando esas 
mismas palabras de un modo que parece que está de verdad hablando 
con él. Una vez que haya jugado con él unas cuantas veces, el usuario 
aprenderá el modo de conseguir que dé las respuestas más apropiadas. 

Lo que sigue es una parte de una «conversación» que mantuve con 
mi versión de ELIZA: 


“E ACERA AN Ce ACDANADIE TENCOTE DD ANT 
TE ASEGURO GUE Es AGRADABLE TENERTE POR AQUI 
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¿TENGO UN GRAVE PROBLEMA 
PUNTUALIZAR ALGO NAS SOBRE ES? 


PUEDES 


SCUTIR ESO CON UN HUMANO, 


¿ME SIENTO MAL 
JADIER, POROUE TE DISCULPAS 


SEOROUE NO PUEDO SEGUIR 85] 
CAPAZ 


QUIZAS NO QUIERES Al 


2U0Y A BEBER TS 
LA hoDERE CIÓN DEBE. PRESIDIR TODOS TUS ACTOS, 


0ERES UNA COMPUTADORA ESTUPIDA 
QUE Te PARECE QUE SER UNA COMPUTADORA ESTUPIDA 


APAZ DE SEGUIR AS] 


OE_PARECE NAL 
NO ESTOD SEGURA DE ENTENDERTE COMPLETAMENTE, 
DESEA TE LEO 0 

S BUENO QUE TÉ GUSTE TU INGENUIDAD 


Y este es el listado con el que el ordenador podrá ayudarle a poner 
un poco de orden en su cabeza: 


10 REM Eliza 
20 REM TODAS LAS ENTRADAS EN MAYUSCULAS 
O REM SIN SIGNOS DE FUNTUACION 
40 REM NI COMAS NI ACENTOS 
30 GOSUB 660;REM Inicializacion 
60 PRINT"BETENVENIDO A OTRA SESION CON " 
70 PRINT"TU COMPUTADORA SIQUIATRICA, ELIZA" 
280 PRINT: INFUT"COMO TE LLAMAS" Z% 
90 COLO PRINTUBTEN, HOLA "52% 
106 PRINTi¡ERINT"TE ASEGURO QUE ES AGRADABLE TENE 
RTE FOR AQUI" 
110 FRINT¿PRINT"OFRIME LA BARRA ESFACIADORA CUAN 
DO ESTES PREFARADO FARA EMPEZAR" 
120 NN 1 
130 TF INKEYs$="" THEN 120 
140 2015; RANDOMIZE 
1530 GOSUB 590¿REMN ACEFTA LA ENTRADA DEL USUARIO 
160 1 ENDGNZL E THEN FPRINT O Z83U, Ux 
170 GOSUE 120:¿REM PROCESA LA ENTRADA, IMERIME LA 
RESPUESTA 
180 PRINT:G0OTO150 
190 REM ENCUENTRA LA PALABRA CENTRAL DE LA FRASE 
200 Z=0 
210 ff] 
22 Da INSTR (AB, ES (ZII) 
IF D<>0 THEN 240 
IF 22 35 THEN 210 
SOSUE 440: RETUEN 
260 REM PROCESA LAS PALABRAS CLAVE 
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270 PRINT C$(Z2350" 03 

280 IF RIGHT$(0$ (73,1) < "A" THEN PRINTE«RETURN 

290 H=LEN (A) — (D+ALEN ($ (213) 

FOO TIE H:0 THEN A$=RIGHTS (A%, HO 

210 Z=0 

AO Ze Ze 1 

30 DeINSTR(A$,F$(Z23) 

240 1F D2>0 THEN 370 

250 1F 228 THEN 320 

260 PRINTAS: RETURN 

370 J$=LEFTS(AS, (D-1)) + " " +6$(Z) 

380 ZELEN(A$) LEN (LEFETS (9%, (D-11)) “LEN (68 (232 

390 FRINT 1% 

400 1F Z>2 THEN L$ = RIGHTSC(AS, (2-2): 1 INSTR (< 
$1.) = 0 THEN RETURN 

410 1F Z 2 THEN FRINT RIGHTS (A, (2-29) 

420 TF 222 THEN PRINT 

430 RETURN 

440 REM RESPUESTAS ALEATORIAS (No hay palabra cl 


ave) 
430 Z= INT ORND Cid dd A 1 
460 ON Z GOSUE 480, 490, 300, 3104 32 Qy id Oy AO DÍ y 


AO 70. OO 

470 RETURN 

480 PFRINT"QUE ES LO QUE TE SUGIERE ESO?" RETURN 

490 PRINTYYA VED,. 4 3 RETUEN 

300 PRINTNO ESTOY SEGURA DE ENTENDERTE COMELETA 
MENTE, "RETURN 

310 PRINT"FUEDES FUNTUALIZAR ALGO MAS SOBRE. ESO? 
RETURN 

UZO PRINT"ESO ES MUY INTERESANTE!" RETURN 

30 PRINT"ASI SON LAS COSAS... FOR FAVOR CONTINUA 
uo RETURN 

340 FRINT"YA ENTIENDO...“ RETUEN 

5350 FRINT"BIEN, BIEN... PROSIGUE. "e RETURN 

3600 PFRINT"FOR QUE DICES ESOS": RETURN 

570 PRINT"POR FAVOR, EXPLICA QUE HAY DETRAS DE E 
SA AFIRMACIÓN, ¿. Us RETUEN 

580 FRINT"FODRIAS DECIR ESO DE NUEVO, DE UNA MAN 
ERA DIFERENTES" RETURN 

590 REM ACEFTA LA. — FRASE DEL USUARTO 

400 INFLIJT A$:K$=A8 

610 1F LEFTS(AS, D)="ADIOS" THEN PRINT "ADIOS FOR 

AHORA. "GFRINTUESFERO VOLVER A VERTE, "¿END 


O 0 Y O 0-0: Y 


O. UE O. e «E 


¡3 


SEO 


ES LEN CAS) 


FO TF LEFTSCAS, VD ="FOR QUE" THEN AS=RIGHTS (AS, ( 
E E 

640 AB TAE AN " 

650 RETURN 

660 REM INICIAL IZACION 

470 CLOS N=oO 

68% DIM BRO, OA CL FE (DB), 015) 

690 REM OLLENA ES, C0$ CON FALAERAS CLAVE,  RESFUES 
TAS 

700 FOR A=1 TO 25 

710 READ ESO, O$CA) 

TRO NEXT A 

TEO RESTORE 1150 

740 FOR A=1 TO 8 

750 READES (A) 1 READOS (A) 

760 NEXT A 

770 RETUEN 

780 REM FALABRAS CLAVE, RESPUESTAS 

780 DATA" PUEDES", "QUIZAS TE GUSTARIA SER CAPAZ 
DE" 

80% DATA" SUELES ","SI, YO SUELO" 

810 DATA" FUEDO", "QUIZAS NO QUIERES SER CAFAZ DE 

B20 DATA" TU ERES", "QUE TE HAZE CREER QUE SOY" 

830 DATA" ERES", "QUE TE FARECE QUE SEA" 

840 DATA" YO NO", "FORQUE TU NO" 

8504 DATA" CREO", "QUE SE SIENTE CREYENDO" 

860 DATA" FORQUE TU NO", "FORGQUE TE GUSTARTIA QUE 
Yo" 

870 DATA" FOR QUE NO PUEDO", "QUE TE HACE CREER OO 
UE DEBERIAS FODER" 

880 DATA" ERES", "FORQUE TE INTERESA 51 SOY O NO" 

890 DATA" NO FUEDO", "COMO SABES QUE NO FUEDES" 

900 DATA" SEXO", "CREO QUE REALMENTE DEBERIAS DIS 
CUTIR ESO CON UN HUMANO, " 

910 DATA" ESTOY", "CUANTO TIEMPO HAS ESTADO" 

GR20 DATA" YO SOY", "FOR QUE ME DICES QUE ERES" 

930 DATA" QUIERO", "FORQUE QUIERES" 

940 DATA" QUE", "TU QUE CREES?" 

930 DATA" COMO", "CUAL ES LA RESPUESTA QUE MAS TE 


AGRADARTAS" 


FOO 


DATA" QUIEN", "CON QUE FRECUENCIA FIENSAS EN 


ESAS COSAS?" 


Or" O o E “O $ 0 


O O O 0-0 


O 
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E E 
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970 DATA" 
980 DATA" 


A PREGUNTA?" 


990 DATA" 
ES SABER?" 

1000 DATA" 

1010 DATA" 


DONDE", "FORQUE ME HAS PREGUNTADO ESO%" 
CUANDO", "QUE DIRTIA TU MEJOR AMIGO A ES 
PORQUE", "QUE ES LO QUE REALMENTE QUIER 
QUIZAS", UNO FARECES ESTAR MUY SEGURO!" 
BEBER", "LA MODERACION DEBE PRESIDIR TO 


DOS TUS ACTOS," 


1020 DATA" 
10%0 DATA" 
08 SUENOS?" 
1040 DATA" 
1050 DATA" 
TIVO?" 
1060 DATA" 
1070 DATA" 
1080 DATA" 
CRETOS?" 
1090 DATA" 
1100 DATA" 
1110 DATA" 
DE LOS 
1120 DATA" 
FIUITADORAS?" 
1130 DATA" 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 


DATA" 
DATA" 
DATA" 
DATA" 
DATA" 
DATA" 
DATA" 
DATA" 
DATA" 
DATA" 


SIENTO", "FORQUE TE DISCULPAS" 
SUENO", "FORQUE HAS SACADO El. TEMA DEL. 


ME GUSTA", "ES BUENO QUE TE GUSTE" 
QUIZAS", "NO ESTAS SIENDO UN POCO TENTA 


NO“, "FORQUE ERES TAN NEGATIVO?" 
TUS", "FORQUE TE PREOCUPAN MIS" 
SIEMPRE", "PUEDES FENSAR EN UN CASO CON 


PTENSO", "ACASO DUDAS" 
SI", "FARECES MUY SEGURO, FORQUETR! 
AMIGO", "FORQUE HAS MENCIONADO EL. TEMA 


AMIGOS" 


COMPUTADORA", "FORQUE MENCIONAS LAS COM 


SOY YO", "TU ERES" 


REM CONJUGACIONES 


YO " s "u To 

ERES ", "SOY" 
ERAS U, "ERA" 

TI nm » “y ” 

Ti " » "” MIN " 

TENGO ", "TIENES" 
ESTOY ", "ESTAS" 
MI " " "PY Ú" 

SOY YO ", "ERES 
ESTOY "ESTAS" 
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CEREBRO ELECTRONICO 


CEREBRO ELECTRONICO es un intento de escribir un progra- 
ma que funcionara, a la hora de dar solución a un problema, de un 
modo aparentemente inteligente. El problema que el ordenador inten- 
ta solucionar es del tipo de adivinar el código numérico que ha pensa- 
do el jugador humano. La información que el jugador vuelve a intro- 
ducir después de la respuesta del ordenador se da en la forma de 
«blancos» y «negros». Se da un «blanco» cada vez que el ordenador 
dice un número correcto, pero no está bien situado en la secuencia del 
código y un «negro» cuando el ordenador dice un número correcto y 
debidamente situado dentro del código. 

El problema no es tan sencillo como parece ya que el ordenador no 
sabe con seguridad qué número (o números) ha dado lugar a un 
blanco (o blancos) y qué número ha dado lugar a un negro (o negros). 
Escribí dos versiones de este programa. Una en la que el ordenador 
puede adivinar códigos compuestos por tres números y otra, una mo- 
dificación de la anterior, en la que el ordenador puede adivinar códi- 
gos compuestos de cuatro dígitos. Funciona de un modo muy simple 
(aunque aplicar la idea relativamente sencilla que sustenta el progra- 
ma no fue particularmente fácil). Cada vez que se le da un negro a un 
número de un código, se le da un valor a todos los números de ese 
código de modo que aparezcan con más frecuencia en los siguientes 
cálculos. Cuantos más negros tenga un código determinado, más valor 
se le dará a los números de ese código. A los códigos que consiguen 
uno O más blancos se les da mucho menos valor. Los números de los 
códigos que no consiguen ni blancos ni negros dejan de ser tenidos en 
consideración. 
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Como dije, la versión de tres números es la base sobre la que se 
escribió el programa de cuatro números. Introduzca primero la versión 
de tres números y consérvela así, antes de hacer la conversión necesa- 
ria para que funcione como un programa de cuatro números. Mientras 
que la versión de tres números juega razonablemente bien y razona- 
blemente rápido, el programa de cuatro números hacia el final empie- 
za a renquear un poco e intenga generar códigos que: a) reflejan los 
valores que han producido las contestaciones anteriores y b) no son 
códigos que se hayan sugerido previamente en esa partida. 

Aquí tiene el programa intentando adivinar un código de tres nú- 
meros: 


Intento hunero 1 Intento nunero 2 

Mi intento es 1 23 Mi intento es 4 3 6 
tos hegros?] Cuantos negros? 

cuantos blancos? cuantos blancos? 


Intento hunero 7 
Intento nunero 3 Mi intento es 1 49 


1 intento es 7 8 9 ; 
Cuantos negros? 


Cuantos hegros?] 


í Ha acertado tu cod gor ez el 1 4 
cuantos blancos*h BN solo 7 7 intentos, 


Y este es el listado para producir ese programa: 


10 REM Cerebro electronico - 2 digitos 

SO GOSUB 3S10REÉM Inicializacion 

0 REM Intenta adivinar 

40 1F FRUEBA 23 THEN FOR Z=1 TO ZTiB(Z) = Z+3% F 
RUEBA: NEXT 2:G0TO70 

60 GOSUE 280 

70 CLS 

BO PRUEBA = PRUEBA + 1 

90 FRINT:¡FPRINT 

100 FRINT" Intento numero" FRUEBA 

110 FRINT 

120 FRINT"Mi intento es"B(1)3B(233BC03) 

130 PRINTiFRINT 

1404 INPUT"Cuantos negros" 3N 

1390 TF N=x2 THEN GOTO 600 

160 1F Nz2 THEN 190 

170 FRINT¿FRINT 

180 INPUT" cuantos blancos"3B 


Dr (A O. DO - 29: Q 


E 50D TE. 


190 TF B+N=3 THEN QO=Z2C(00=BOD1O0(2)EB(O) ICE 
(7) 
200 IF ON+B=0 THEN C(B(1))=0:C0(B(2))=0:0(B(3))=03 
O 1 60TOzZO 
210 IF NM>AYUDA THEN FOR Z=1 TO Z2E(Z)=B(Z):NEXTZ 
: AYLUIDA=N 


220 FOR Z=1 TO 9 

au FOR D=1 TO 3 

¿40 IF E(D) = EC(Z) THEN C(Z) = C(Z) + (E + Wx*lo 
O o+* WeLO 

230 NEXTD 

260 NEXT Z 

270 GOTOZO 

280 REM Coje 2 numeros 

290 FOR Z= 1T0 2 

5300 Dl=C CINT (RAND (-1)*Q0)+1) 

210 1F Dl = O THEN 300 

220 Diz ECINT(RND (-1)+0)+1) 

O TE DizO THEN 320 

240 1F INT(D1/10) = INT(D2/10) THEN B(Z) = Di 

250 TE 1INT(D1/10) < INT(D2/10) THEN B(Z) = DZ 


O O 0 09 
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260 TF INT(D1/10) = INT(D2/10) THEN BE(Z) = D1 
70 1F E(23):100 THEN E(Z)3= B(Z)-100* INT (E(Z3/100 


l 1 
) ¡ 
| | 
| 
O 1 )160T0370 0 
380 TF B(Z)510 THEN B(Z)=B(Z)-10*INT(B(Z)/10):G0 | 
| TO 380 
O 390 NEXT Z 9) 
lO 400 TF BE(1)=B(2) OR BC1)=BCZ) OR B(2)=B(3) THEN | 
O! 290 O) 
| 410 IF AYUDA 30 THEN CUENTA=O0:FOR Z=1 TO Z:1F BC 1 
lO ZO =ECZ) THEN CUENTA = CUENTA +1 i 
O? 420 IF AYUDA 30 THEN NEXT Z:1F CUENTA < AYUDA TH! O 
¡ EN 290 
430 M=100XB(1) + 10 *B(2) + B(3) | 
Oi 440 K(FRUEBA) = M LS) 
450 IF FRUEBA < 3 THEN 500 
lO 460 CUENTA=1 | 
O 1 470 CUENTA = CUENTA + 1 e, 
lO 480 IF K(CUENTA) = M THEN 290 
490 IF CUENTA < PRUEBA —1 THEN 470 
Oj 500 RETURN e, 
lO 510 REM INICIALIZACION 
520 DEFINT A - Z 
O 1 530 PRUEBA =0:0=9: AYUDA=0 ¡O 
| 540 RANDOMIZE | 
550 DIM B(3),0(9),E(3),K(100) | 
Oj. 560 FOR Z= 1 TO 9 0 
? 570 0(2)=Z 
lO 580 NEXT Z 
O |. 590 RETURN ¡ O 
600 PRINTIPRINT | 
o) E 610 PRINT"He acertado tu codigo, es el "B(1)iB(2 1 0) 
MEBCT) 
E 1 
¡620 PRINT TAB(5)3"en solo"PRUEBA "intentos." 0 
3C 
O : 630 END | o) 


210 


Ahora, tras alguna modificación, el ordenador trata de romper un 
código de cuatro números: 


Intento numero 14 Intento numero 11 
Mioantento es 9 3 1 2 Mi intentoezl 2 449 
Cuantos negros?H Cuantos negros?H 

vantos hlancos?] cuantos blancosó 


Este es el listado para adivinar códigos de cuatro números, basado 
en el de tres números. Observe que en la línea 420 se le añade ''— 1”, 
así como otros cambios: 


10 REM Cerebro electronico = 4 digitos 
20 GOSUB S1QG6REM Inicializacion 
30 REM Intenta adivinar 


1 

j 

i 

O 
40 1F FRUEBA =0 THEN FOR Z=1 TO 4:B(Z) = Z4NEXT ] 
2:G0TO7O 
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Oo. O 0 O 


JO 


IF PRUEBA=1 THEN FOR Z=1 TO 45 B(213=2+441 NEXT 


Za G0TO7O 


60 

70 

80 

30 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 


GOSUB 280 

CL.S 

FRUEBA = PRUEBA + 1 

FRINT:¿FRINT 

FRINT" Intento numero" FRUEBA 

FRINT 

FRINT"MNi intento es"BOI¡BCDIBCI BA) 
FRINTi:FRINT 

TNFUT"Cuantos negros" 3N 

IF N=4 THEN GOTO 600 

IF N=z THEN 190 

FRINT:¿FRINT 

INPUT" cuantos blancos"3B 

IF E+N=4 THEN QO=43000)=B0010(0B20120CO E 


(35) 10 (4) =E (4) 


200 


TF N+B=0 THEN [(B(1))=01C0(B(2)=040 08 (00m 


COB (430607030 


210 


TF O N<AYUDA THEN FOR Z=1 TO 4:E(2)=B (2): NEXTZ 


¡AYUDA=N 


Ne) 


20 


240 


FOR Z=1 TO 9 
FOR D=1i TO 4 
IF B(D) = C(Z) THEN C0(Z) += 0(Z) + (B+ N)x10 


O + EXJO 


O 
26 
270 
280 
290 
ZO0 
210 
AO 
O 
240 
SO 
200 
270 


NEXTD 

NEXT Z 

GOTOZO 

REM Coje 23 niimeros 

FOR Z= 1TO 4 

Dli=C CINT (RAND (-1)*Q)+1) 

TF Di = 0 THEN 200 

Diz ECINT (RAND (1) +01) +1) 

IF D2=0 THEN 320 

IF INT(D1/160) = INT(D2/10% THEN E(Z) «= D1 
IF INT(D1/10) < INT(D2/10) THEN E(Z) <= DA 
IF INT(D1/10) = INT(D2/10) THEN B(2)3) = D1 
IF B(Z23:100 THEN B(Z)= B(Z)-100* INT (E (23/100 


21 GOTOZ7ZO 


80 


TF B(235:10 THEN E(2)=BC0Z2)-10x*xINT(B(2)/10):60 


TO 3580 


O 
40O 
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NEXT Z 
IF BlO)I)=BCD OR BOD=ECD DR E(d)=B(4) OR El 


SE O. DO 0. O A CO (O de Qe a 


O 


O 


O» O 


mc) OR OR ECD=B(O0A) THEN 290 
410 1% AYUDA 20 THEN CUENTA=0:¿ FOR Zuel TO 41 1F B( 


THEN CUENTA = CUENTA +1 
420 TF AYUDA 20 THEN NEXT Z:¿1F CUENTA < AYUDA 
THEN 290 
AO. M=lOQ00*XB (1) + 
440 ECERUEBA) = M 
430 TF FRUEBA 3 THEN 500 
460 CUENTA=1 
470 CUENTA = CUENTA + 1 
480 TF ECCUENTA) = Mo THEN 290 
490 1F CUENTA € FRUEBA 1 THEN 470 
300 RETURN 
310 REM INICIALIZACIOÓN 
320 DEFINT A — Z 
SO PRUEBA =010=9 AYIUDA=0O 
340 RANDOMIZE: 
AO DIM EM, (GEMA CIO) 
J600 FOR Z= 1 TO 9 
370 Um 
300 NEXT 2 
390 RETURN 
600 FRINT:FRINT 
610 PRINT"He acertado Eu codigos, *s el "ECI¡BC 
EC EA(4) 
620 PRINT TAR CDi len solo "PRUEBA "intentos," 
630 END 


100 ABORDO) + 10*BCI+E(4) 
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PROBOSCIDEOS 


Es éste un programa en el que el ordenador muestra la buena 
memoria que tiene retando al jugador humano a jugar una partida de 
«Concentración». 

En primer lugar se baraja el mazo de cartas y luego se extienden 
éstas boca abajo en la pantalla. El ordenador y el jugador humano 
escogen dos por turno. Estas se vuelven hacia arriba y si forman una 
pareja se le da un punto al jugador que las ha escogido. Este proceso 
continúa hasta que se hayan escogido todas las cartas. El ganador es 
el que haya seleccionado más parejas. 

Lo que viene a continuación es una partida en la que (como de 
costumbre) el jugador humano (yo mismo) es totalmente derrotado 
por la memoria de 64K del ordenador: 
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Es posible que el jugador quiera hacer el juego más fácil, al menos 
al principio, añadiéndole un mecanismo que haga desaparecer de la 
pantalla las cartas que ya se han adivinado. Esto puede hacerse cam- 
biando el tercer elemento de las series que representan una carta 
correctamente escogida. Y este es el listado de PROBOSCIDEOS: 


10 REM Froboscideos 
20 GOSUE 7903 REM Inicializa/baraja 
20 GOSUB £10:¿REÉM Impresion 
40 GOSUB 430¿REM Intento del humano 
30 GOSUB 15S0¿RÉM Intento de la computadora 
60 TF HS + CS ¿26 THEN ZO 
70 PFRINT"Y asi llegamos al final" 
80 FRINT"de otra partida de Froboscideo" 
30 FRINT 
100 1F HS + CS THEN FRINT "Tu eres el vencedor!" 
110 1F CS + HS THEN FRINT"Yo soy el ganador, hum 
ano!" 
120 1F CS = HS THEN FRINT"Es empate, humanoide!" 
130 END 
19.0 REM A e LM dl EA E DA E 
MMMM MM MM Me MM MM MM AI 
130 REM Intento de la computadora 
1060 MOVIMIENTO = 0 
170 TF Rz=1l OR ERNDO-1)NIVEL THEN 2640 
1890 X=R 
190 XX 1 
200 Y=l 
210 Yiu=Y+l 
220 TE DOO=D(Y THEN 240 
20 TF ASCCAS(DODOI) = ASCCASR (DY THEN 1F XX < 
> Y THEN TE MID$(A$(DOO),7,1)="X" AND ÚMIDS (As (D (Y 
Ja Om IX THEN ADO EB=D (M0 G0TO34O 
240 1E YX THEN 210 
20 TE X-13kK THEN 190 
260 REM Intento al azar 
270 QUENTA=0 
280 CUENTA=CUENTA+1 
290 TF CUENTA = 200 THEN. 70 
200 A= INT (END (1) AD2) +1 
210 Ex=INT(RND (1) 52) +1 
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SO IF B=A THEN 310 

330 TF RIGHTS (A$ (009,1) 2% "X" OR RIGHTS(A$(B), 1) 
á 1x0" THEN 2680 

2340 FRINT"Yo elijo las cartas" A" y'"B 

2530 FOR F= 1 TO 1000 ¿NEXT F 

60 MIDS(A$ (A), 3,1) += " "ieMIDSCAR (E), q 1d) m0 

2370 GOSUE 610 

280 IF LEFTS (AS (0,1) = LEFTS (4% (0), 12 THEN FRIN 
T"Y son pareja! "109=C0S+1 

390 TF LEFTS (As (09,1)<% LEFTS (948 08),12 THEN FRIN 
T'Fero no son ina pareja! ":MI1D38 (048 (0,3,1) = "X'UiM 
TDS (A$(B), 3,1) = "Xi Dé (As 00) DD (RA 0 AS 03) DOOR 


400 FOR F=l TO 1000: NEXT FE 

410 RETURN 

ADO REM RRA id Me E MM MD A A MF dl 
AAA 

430 REM Intento del humano 

440 MOVIMIENTO = 1 

4300 FRINT: INFUT"Dime la primera carta que has el 
egido":z 

460 1F A%1 OR A232 THEN 450 

470 1F RIGHTS (A$ (03,12 = " " THEN FRINT"Esa cart 
a ya ha sido cogida": c60T0450 

480 MIDSCAS (A), 3, 1) == 50 5" 

490 INFUT"Dime la segunda"; E 

S00 T1F EX21 OR Box 52 OR B=:A4 THEN 490 

310 TF RIGHTS (48 (8),12 = " " THEN FRINT"Esa cart 
a ha sido cogida":60T0490 

Ja MIDS(AR(B), M1) == 0" 

3050 GOSUB 610 

340 1F LEFT$(A$(8),1) = LEFTS(A$(E),1) THEN FRIN 
T "Si, son una pareja "CG HS = HS + 1 

30 TF LEFTS(A$(00,1) 25 LEFTS(A$00,1) THEN FRI 
NT“No, no son una pareja :MIDS (A$ (0), 3, 1): "X"gMID 
$(A$(B), 3 1)= "Xx" 

360 TF LEFTS (AS (00), 1) 35LEFTS (08 03),12 THEN DS (6) 
=A8 CA) 3 D$ (R+1)=A%8 (E) 1 D(R)3=A3 D (R+1) Es RRA 

370 FOR F=1 TO 1000:NEXT EF 

3380 GOSUE 610 

390 RETURN 

A E AAA 
He MMM IMM MIA 


O O A. 0 


E. 0. 0 0-2) 0 0 O 0 0 


O 0 O 0 


610 
620 


REM Impresion 
CLS:FPRINT“Mi puntuacion es"C0S"y"¿FPRINT" 1 


a tuya es"Hs 


EZO 
LADO 
640 
01) 
EGO 
AS) 
680 
RO 
700 
710 
VAA% 
TREO 
740 
TOO 
"u FE: 
760 
E 
TIO 
780 


PRINT¡FRINT"Estamos jugando en el nivel "NIVE 


PRINT¡ERINT" O "3 

FOR Z=1 TO 32 

TF Z=b THEN FRINT" O "; 
FRINTZ3" 0%; 
B$=RIGHTS (M8 (73,1) 

TF Es="X" THEN PRINTU 03 
TF Es$=" " THEN FRINT OLEFTS (A (773,230 03 

TF 3% CINT(Z/DD) = 7 THEN FRINT 

NEXT Z 

FRINT 

FECONT 

IF MOVIMIENTO = 1 THEN FRINT"Tus cartasi"A'y 


RETUEN 
FREE MA Me Me DM Me E MMM IDEM A 


RIN II A A 


7390 
800 
e10 
BZÓ 
ndo" 
SO 


REM Inicializa/baraja 

RANDOMIZE: 

DIM A$(32),D$ (300%, D (300) 

CLOS FRINT"Un momento, por favor,estoy baraja 


PFRINT¡FRINT"empieza a ejercitar los musculos 


de la memorias..." 


840 
BNO 
860 
870 
880 
890 
900 
910 
ORO 
POZO 
740 
OUO 
760 


CS=01HS=0:R=14 MOVIMIENTO=<3 

FOR B=1 TO 32 

D$ (Eu 

READAS (E) 

NEXT E 

REM Rutina para barajar de Moses/Daktorcd 
FOR Ju 32 TO 2 STEF-1 

23 INT ORND 10 RD) A+ 

H$=A4$ (2) 

A$ (210=A$ 0) 

as ()=H$ 

NEXT J 

PRINTi¡PRINTUNivel de dificultad (1 10)" 


O” O 0 O 


¿a ES ES A O A E SE A SS 
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220 


y 
i 
| 
| 
| 
| 
| 
| 
t 
| 
| 
l 
I 
! 
' 
| 
l 
l 
1 
| 
J 
| 


970 FRINT" (O es facil, 1 casi IMFOSTELE!)" 
10 THEN 


980 INFUT NIVEL: IF NIVEL < 1 OR NIVEL 
930 

990 NIVEL = NIVEL/1O 

10060 RETURN 


1010 DATACATX", "2TX" y METAS, MATAS, ST, 


A 1 10 SI O PALO y AO E o AS O A dd 


1020 DATACADX", "2DX "y CEDXA", CADA" UDX", 


"¿"BDX", "9DX", "DDX". "JIDX",. "QODX",. "KDX" 


1030 DATAYAPX", "2PX", “BPX", “APXO,SPXO, 


ÚS UBPXO, "9OPXM", "DPX", "IPX",. "QPX", "KPX" 


1040 DATA"ACX", "20X", "BOX", "4OX", "SOX", 


Pod =]2o SUPRA 160 CUPO e ed GU Dd mo CUINA e 105 CL 4 0 de 


MEagTX", 
"EDX", 
LEER 


"ACA "”" : 


“7TX 


"7DA 


“7 PX 


-7 
MEX 


AMANUENSE 


A continuación tenemos nuestro programa poético. En este no es 
necesaria la acción del jugador o usuario, salvo para admirar el mara- 


villoso resultado. Este es un ejemplo del tipo de poemas que puede 


producir: 


E 


ER] LL 
Laud [a A sn 
— — pe Luz Ea 
A Me A] EE . . 
TEE Ln e [A] A TA 
-— -——. e TT ET ae ME A 
E a E me 7 E E ti os 
(E ari A ] PA su. CA A E al 
A A O dl AS sa Ea e A 
¡A A A E . a O a A a al 
A] Lo E q 7 A DI a] 
EIA. EE CT Y a A 
Ea ar TI > Ca Jn a lr al DA 
BE e ad —— MA A a cl a] 
E A a A ALE O 4 E 
a RES CA EA E __— LNERIEA 
A A A a pra o a ll A A 
NA E E ¡El a ds 
Mera CR os JU E a ia EA 
E Egea E Lal L— LS as AA 0 
A E poned! a man E E A A A 
== A E E Ja a Cad nn E 
e aa a AA A A A 
E a pr m e dd rd sn 
CS a O E sm. — 3 SERES m 
a paa e a sa pa EA AA ma 
CI CESA A Ls E TA 
ESA E . Ea E 
A .-—. pa a E pm 
A] 3 E] _— 


210 DE LA ERTÁLLA. 


O ENCORAGINADO 
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222 


EL MENDICANTE CONJURO TONTAMENTE 
EN EL CAÑPO DE BATALLA... 
OBSERVANDO AOJURAR, 
PARA OBJETAR EL ESTE 
MALGASTANDO, LUEGO EROSIONANDO 
e ENCERRANDO: PUBRIENDO, 


AR e ll 
SIR DE JUEGO, 


EL PORb] L0SERO ESPERO. acIL 
EN E sE! ¡Br To r 
DESEANDO AJURÓR, | 
PARE | ¡ E CcaTTpr 


TERNIN 


BR 


vA: da ) MAI jo 
cs AMORDAZA 


EL SUPLICANTE URGIC 
"REL FepRiO | b 
GLMLENDO NEAR 
PARA e > 
AGOTANDO, LUERO del 


A 


ha] 

n— 

CA 

— 

Ema 

a | 
, bea mo ] 
TIT 


IM TY E 
A 


Este es el listado de AMANUENSE. Una vez que lo haya ejecuta- 
do varias veces, puede que quiera cambiar las palabras de las senten- 
cias DATA, para modificar el tipo de poesía que produce: 


10 REM Amanuense 
Zo ELE 
SO DIM As (12) 
4 N:0 
30 ERINT"Apreieta cualquier tecla para empezar 
0 N=N+ da TF O 18) 
TO RANDOMIZE:, OLE 
GO REM A 
MMMM LM MM E A 
30 RESTORE 3301 GOSUB 
MO GOSUE 4 
350. .” ja 1) JE 2 
nOSuUE 
LO A ESTORE ¿Gi GOSUE 
140 RESTORE 300 SOSUE 
150 RESTORE 390; GOSUE 
160 RESTORE 4006: GOSUE 
170 RESTORE 410: G60SUE 
180 RESTORE 4204 GOSUE 4 
190 RESTORE 4300 GOSUE 430: 08 ( Ll 
200 RESTORE 420: GOSUE 43048 CL(2)=s 
210 REM NN CA 
MMM MMMM MM A 
Eso PFRINTUEL "ASC" CAB(Z)R" MARCIO 
20 PRINTO EN "RAS 
AO PRIISTAS (AU MAS (610,0 
2850 ERINT"O FARA "GASCO" EL CURAS" l 


100 RESTORE 
110 dá 


SS E E Y 


O He O 00 O: 0 O Y 
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So. 0 QQ y 


224 


260 PRINT" "3A48(933%, LUEGO ":A$8(10) 


27Q PFRINT" na RABO MARS, 
280 PRINT:¿PRINT 
AAA 


Me Me Me e IM e e e 

500 FOR T=1 TO 1000: NEXT T 

210 G0TOGO 

MDO REM AR A e Al AR MM A e A E 
MR MM MR IM A 

230 DATACAFLICANTES, "SUELICANTE", "MENDICANTE", "E 
ORDIOSERO", "ASPIRANTE", "RECLAMANTE", "POSTULANTE", U 
DIRIGENTE", "CENTINELA", "ALCAIDE" 

S4Q DATA" IMPLORO", "SUELICO", "ESFERO", "ROGO", "CON 
JURO", "ERESTONO", "URGIO", "ANHELO", "DEMANDO", "EXIGI 
Eye 

adO DATA"CON EXITO", "ENCORAGINADO", "PROGRESIVAME 
NTE", "TONTAMENTE", "SIN LIMITE", "DESASISTIDO", "VACI 
LANTEMENTE", "HUMILDE MENTE", "DESDENOSAMENTE", "ORGUL 
LOSAMENTE" 

260 DATAYEL CAMFO", "EL CAMPO DE BATALLA", "EL TER 
RENO DE JUEGO", "LA FISTA DEL CIRCO", "AQUEL. BABEL, 
"EL TERRENO ENEMIGO", "EL. HIFODROMO", "EL. ESCENARIO 
DE LA BATALLA", "EL JUICIO", "LA FISTA DE CARRERAS" 

2370 DATA"ESFERANDO", "PREGUNTANDO A", "CREYENDO EN 
, "OBSERVANDO", "ORANDO FOR", "FERMANECIENDO POR", "L 
LLORANDO FOR", "DESEANDO", "MIRANDO FIJAMENTE", "GIMIE 
NDO FOR" 

380 "LA FATALIDAD", "LA RUEDA DE LA FORTUNA", "LA 
GRAN DECISION", "LAS ESTRELLAS", "UNA INFLUENCIA AST 
RAL'", "UNA OFORTUNIDAD IRREFETIBLE", "UN HECHICERO", 
"UN ESPIRITU ATORMENTADO", "UN FANATICO", "UN BRUJO" 

290 DATA"SOFOCAR", "RETRACTAR", "ABJURAR", "DESDECI 
RU, "RENUNCIAR", "DESISTIR", "VACILAR", "OBJETAR", "DES 
VIAR", "RETROCEDER" 

400 DATA"FANTASMA", "ESFECTRO", "DUENDE", "FAUNO", " 
SATIRO", "HADA", "DRIADE", "TRASGO", "COMPLEJO", "FASAD 
0 

410 DATA"MALGASTANDO", "GASTANDO", "USANDO", "CONSU 
MIENDO", "AGOTANDO", "DESECANDO", "VACIANDO", "TERMINA 
NDO", "DERROCHANDO", "DISIFANDO" 

420 DATA"CORROYENDO", "EROSIONANDO", "MARCHITANDO" 
y "PUDRIENDO", "CARCOMIENDO", "MINANDO", "AGITANDO", UR 
OMPIENDO", "DANANDO", "HIRIENDO" 


O UU. “O 0 +. 10, Y 


Ó. 0 9. 0-60 


O 


430 DATA"RESTRINGIENDO", "COERCIONANDO", "OBSTACUL 
TZANDO", "RETRASANDO", "ENCERRANDO", "IMPONTENDO", "MA 
NIATANDO", "AMORDAZANDO", "DESAFIANDO", "SUPRIMIENDO" 

AO. REA IM e IM IE II MAI 
HR DM A A II 

430 FOR N = 1 TO (RND(-1)10+1) 

460 READ Es$ 

470 NEXT N 

480 RETURN 


O 


o o 
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É 
É 
4 


cetro ao, 


SOLO PARA DIVERTIRSE 


Hay una serie de juegos, como los incluidos en este capítulo del 
libro, que están sólo pensados y diseñados con el fin de divertir al 
jugador. Estoy seguro que el lector se lo pasará en grande jugando a 
CEROS Y CRUCES o RESORTE OCULTO pasando por EL CAM- 
PO MINADO. 

Además de los juegos mencionados más arriba, se incluyen en este 
capítulo NIMGRAB y CADDY. Y si quiere divertir a un grupo de 
chavales dejándoles jugar con el ordenador durante un rato, tenemos 
lo necesario: un programa inmenso llamado CABALGATA DE PUZ- 
ZLES compuesto por toda una colección de divertidísimos juegos. En 
éste sólo se puede pasar al siguiente juego cuando uno ha terminado el 
anterior habiendo ganado. Es un medio ideal de mantener entreteni- 
dos a los más jóvenes (en edad o espíritu). 

Y sin más preámbulos, pasemos a ellos de inmediato. 
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RESORTE OCULTO 


Empezaremos esta sección del libro con uno de los juegos más 
simples de los que componen este grupo, RESORTE OCULTO. 
Como explica el programa, el ordenador produce dos números entre 
el 1 y el 13 y le pide al jugador que apueste a ver si adivina el siguiente 
número que piensa poner entre los dos primeros. Es muy fácil de 
jugar y muy divertido. 

Esto sería una partida en acción: 


fl priner numero es 2 
segundo es é 


Tienes $ 10 


Cuanto quieres apostar 
3 que ni proximo hunero 


está entre ¿ yb 75 


El nunero ha sido 4 
Bien hecho, ganas E 16 


O 


O 


este es el listado: 


REM Resorte oculto 

GOSUE 330 

GOSUB 80 

TF 021 THEN SOTO 4320 

GOSUE 340 

GOTOZO 

FREE MM ID Me AD MM IFA AM ES MA E 


A A ARES 


SÓ 

SO 
100 
110 
12O 
130 
140 
130 
160 
170 
180 
190 
200 
210 
MON) 
O 
SAO 
aC) 
ZO 
OYAR 
280 


PRINTEFRINT:ERINT 

FRINTUNI primer numero esla 
PRINTS El segundo es"E 
FERINT 

ERTNT"Tienes $"D 

FERCINT 

PRINT"Cuanto quieres apostar" 
PRINT"a que mi proximo numero" 
PRINT “esta entre'A" y" Es 

INPUT E 

TF EsD THEN 170 

DD 

GOSUB 500 

PRINTi¿FRINT“EL numero ha sido"E 
GOSUE 300 

IF 224 AND CE OR CA AND CB THEN 270 
FRINT"Bien hecho, ganas $"2x*E 
DD aj 

GOSUB 300 

RETURN 

REZA EMI IM MI MEM MM IMM AE EM e MM ME 


EEE 


ZO 
OO 
210 


ZO 


FRINT"Lo siento, pierdes SUE 

GOSUB 300 

RETURN 

FREE HR MR AD 


E A A 


AO 


Decó 


40 CLS 


O 


Az TNT ORND (Ci) 1 


360 Ex INT ORND (1)+*130)+1 


370 


TF ABS (A-B)22 OR ABSCA-B) 56 THEN 360 


1 
¡ 
| 
Í 
i 
1 
' 
t 
] 
1 
Í 
i 
y 
4 
| 
| 
l 
1 
i 
| 
i 
! 
] 
J 
| 
l 
| 
l 
' 
] 
J 
l 
l 
Ú 
| 
| 
] 
] 
I 
] 
1 
| 
l 
| 
1 
( 
] 
' 
' 
' 
| 
! 
| 
l 
1 
l 
| 
| 
| 
1 
¡ 
1 
1 
| 
' 
' 
! 
l 
l 
l 
l 
Í 


O” O De 10 CO CO O 


O. € O -00,0 


O 


229 


SEO 
290 
AO 
410 


420 
470 
450 
460 
470 
480 


490 


500 
310 


Ae) 


1 
| 
l 
i 
Í 
' 
; 
| 
| 
] 
I 
| 
| 
l 
| 
| 
| 
I 
! 
J 
l 
l 
l 
1 
| 
1 
i 
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Cu TNT (RND (1013) +1 
IF A=l OR B=C THEN 380 


RETIJFN 
A A 


RIIIE IE MI IEEE IE E E 


FRINT 
PRINT"EL JUEGO HA TERMINADO" 


FRINT" ESTAS ARRUINADO ! " 

FRINT 

PRINT"GRACIAS FOR EL. JUEGO" 

END 
AS 


MMMM MD Me Me ME MM 


FOR Z=1 TO 1000 
NEXT Z 
RETURN 


NIMGRAB 


NIMGRAB es un juego que parece muy sencillo a primera vista, 
pero que es endemoniado a la hora de jugar y mucho más todavía si el 
jugador pretende ganar. El jugador humano y el taimado ordenador 
van retirando por turno los objetos que aparecen en la pantalla. Hay 
un límite que marca cuántos objetos se pueden retirar en cada jugada 
(y este límite cambia de una partida a otra, aunque no cambia dentro 
de la misma partida). El ganador es aquel que fuerza a su contrincante 
a coger el último objeto que queda en la pantalla. 

En cuanto haya visto el programa en acción, comprenderá cómo se 
juega sin más explicaciones. Así que ya puede empezar a trabajar 
perfeccionando el método de vencer al ordenador. Lo que sigue es 
una partida de NIMGRAB: 


el axino que puedes quitar 501 + 


dd da RE 
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IIA RARA 
El mazimo que puedes quitar son 4 
dara b arabe baadadadada peda daba dbabada dada babas 


Has cogido 2 + y yo cogl 4 
E 

Los e 

Ca A 


RRARCRARRRARCRORARARIRN RARA R RRA pa RR Ra bag phd R nada 


Cuantos quieres coger? 


Asi que quieres coger 

RARA RA arpa ba parc parara tara rahararararadada 
ERORURORORARARER ORO ROR ARA RARORORARARARRANRRARARRARA NR ARA 
El maximo que puedes quitar son 4 

IRURURORA RARA ROA OR RARA RAR ORORARARAROR OREA RARO RNE RARARAAN 


Has cogido 4, y yo codi] 
| 


Epa a haa daa aaa aa 
Asi que quieres coger 1 
JIAP CRRCICN 


Has cogido el ultimo 


321 que gano yo! 


Y este es el listado: 


REM: Nimgrab 


50 FRINT"Oprime “E? para empezar el JUEGO..." 
30 N=N+is 1 INEEYS$=<"" THEN 50 

6% RANDOMIZE 

70 CELS 


80 Mud EzxQí Z= INT (RND (CN) 8) +16 
90 IF 2%INT(Z/2)=Z THEN Z=Z+1 
100 He INT CORND (CN) 20 


FRINT"El maximo que puedes quitar son'"H 
GOSUB 320 
1 ExO THEN FRINT"Has cogido"E", y yo cogi"OQ 
FOR Esx1 TO Z 
FRINTES : 1 KNDO-M)23,8 THEN FRINT 
NEXT E 
170 GOSUB 320 
180 PFRINT"Cuantos quieres coger!" 
190 ExVAL CINKEYS) 
200 IF Ezx1d OR EsH OR EZ THEN 190 
210 PRINT:IFRINT"Asi que quieres coger"E 
220 Z=l-E 

20 GOSUB 320 

240 1F 221 THEN FRINT"Has cogido el ultimo":FRIN 
T,"asi que gano yo!": END 

230 Q = Z == 1 —- INTC(Z-1)/(H+1))*(H+1) —- INT(RND 
(NM) %2) + INT(RND (NN) 2) 

260 IF (X1 OR QH THEN 250 

270 GOSUB 320 

280 Z2=2-0 

290 1F 221 THEN PRINT"Yo he cogido el ultimo", FR 
INT, "asi que tu ganas!!":END 

300 GOSUBR 320 

310 GOTO110 

30 PRINT 

330 PRINT "4H HH HH HH RH RRA 
Hb HE HR E E He AR 

340 FPRINT 

3590 FOR O=1 TO 200: NEXT O 

360 RETURN 


e "Q. e -Y 
O. Y 0 OU O. YU 


O. Y 
O-Q- O O 0: 9 


O 9 
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CADDY 


Creo que ha llegado el momento de que usted, lector, y su versátil 
ordenador, jueguen un rato al golf, lo que podrán hacer con este 
programa, CADDY. 

El jugador humano y el ordenador han de vérselas con nueve 
hoyos y, como verá cuando ejecute el programa, el ordenador se 
muestra de lo más educado llevando por usted la cuenta de sus puntos. 
Después de cada hoyo le informará de cómo va hasta ese momento y 
calculará la media de sus marcas por hoyo. Todo lo que el jugador 
tiene que hacer es golpear la bola. Si el jugador golpea la bola dema- 
siado lejos, el ordenador se asegurará automáticamente de que el 
siguiente golpe retrocede hacia el hoyo. 

Se dará cuenta en seguida de que el juego requiere cierta habilidad 
especialmente en los hoyos que presentan un alto factor de dificultad. 

Aquí tiene una partida de CADDY: 


Ds 
pd 


(000 Hoyo numero l ¿+2 


ERA AA AA AAA AAAARARAARA AAA AA AAA AAA, 
AAA AAA AAA AAA AA AAA AA 


RT SUS MAIN TR RAR TE SERNA RA IN E 
RARA RARA AAA A AAA ARARARARA AAA ARANA, 
PALA AAA PARARON OA AA 


Despues de este golpe, tu puntuacion es 4 


(0 Hoyo numero 177) 
EL FACTOR DE DIFICULTAD Es CUATRO 


44441401445115111158 AHRRREERA 
00041011 115111118 


AA DE ES OO O OS: 
ERAARARAAAARALAR 
ARAÑRALARA ERA RADRA AA RA RARA ARANA 


E O O O NN RO E AI O 
AAA A AERARARARADAR AA RAS 
PORRA AAA AAA 


Mee llibre RRRERERRE 
PRES PRerRRGRERCaRRORNRORORORRSRRRdE 


OT MN ORO 
WERE EN E A E O 
AAA AAA AAA AAA RA RA A A AA A 


Despues de este golpe, Lu puntuación es 4 


El Juego nasta ahora: 


le l EcesItO ole 


dd a 


a] 


La puntuacion a los % hoyos es 3, 
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Final de la vueltas campeon! 


mu 
A 


NA puntuacion E 21d0 35 
m A wn fue 7 
lla media por hoyo fue 4 


Rerieta la '5' para otra vueltas o CN ' para acabar, 


Y este es el listado: 


O 


O 


O € Ú 
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10 REM Caddy 

20 DIM X(9):C0 = 0 

SO RANDOMTZE 

40 FOR Z=1 TO 9 

SÓ S0=0 

60 J=INT (RAD (1120 

70 Q=INTOURND (1) 3) +43 

80 TF (Q=5 THEN QO$="CINCO" 

390 1 0=4 THEN Ms="CUATRO" 

100 1F Q=2 THEN QO$="TRES" 

110 CLSiFRINT:¿FPRINT 

120 IF Z=2 THEN FRINT"La puntuacion hasta este h 
ovo es" X (01) 

130 TF Zo2 THEN FRINT"La puntuacion hasta este bh 
oyo esk 

140 PRINTU dx pop a AAA 

1530 FRINT¿PRINT"EL CTOR DE DIFICULTAD ES "(59 

160 GOSUB 4%0 

170 FRINT: INFUT"Dime la fuerza del golpe'iá 

180 1F J 26 THEN A=-A 

190 JJ INT (0A4/ (RAND O 10 0413) 

200 1 J = 26 THEN GOSUE 490 

210 1 12% 26 THEN GOSUB 430 

AO SEC 1 

230 PFRINT"Despues de este golpe, tu puntuacion + 
s"SC 

240 FOR Feel TO SOQNEXT E 

230 1 I2:26 THEN 110 


O 


O 


l 
) 
1 
| 
! 
¡ 
' 
j 
1 
| 
4 
1 
) 
| 
) 
| 
| 
! 
¡ 
4 
| 
i 
t 
l 
| 
) 
' 
! 
| 
| 
I 
J 
? 
| 
i 
4 
i 
í 
l 
| 
| 
! 
¡ 
| 
i 
1 
¡ 
É 


E HZ DD € 


200 C=C+SC 

A 

280 1 Z=1 THEN 390 

290 KO 

200 PRINT"EL juego hasta ahora" 

210 FOR J=1 TO Z 

AO. KemkeX (0d) 

30 FPRINT"Hoyo"JI' necesito" x(d golpes" 

340 FOR Mel TO ZOO0NEXT M 

2350 NEXT 

3060 15 22 9 THEN FRINT¿FRINT"La media por ahora 
es de" INTO(G+,3)/7) 


370 FOR P=1 TO 1000: NEXT EF 
280 1 Z>1 THEN PRINT¿PRINT"La puntuacion a los" 


¿hoyos es"l 

290 1 Z=1 THEN PRINTi¿PRINT"La puntuacion para € 
l primer hoyo es'"C 

400 FOR Mel TO 1000: NEXT M 

410 NEXT Z 

420 GOTOSOO 

430 1 J3 30 THEN J=so 

440 FRINT TAB(J+idi Mo" 

450 PRINTURHRHHHRHRHRHRRRRR AAA RRHH RRRRREN /RHHHHHHRRR 


460 PRINTURRRERERERR RRE RRA REA MERA IR 


4. 7 (8) FP R DE NT M0, o 0 0 O O 0 0 IO 0 OO o o O o os 0 0 0 0 0 


480 RETURN 

490 PRINT:¡PRINTFRINT"Lo has conseguido!" 

500 FOR F=1 TO 100:NEXT F 

310 PRINTER HA A HA Hb HH REN RRA 


IO PRINT'UARR AA Ho HH dd HH Ho HARO MAA ARA 


ep Moa na ps a a o o, os a a a 0 a o 0 0 e os o a o, 0 a 
530 PRINT Pen Pe Poe e. e 


340 FOR Fu=1 TO 2000: NEXT F 

300 RETURN 

360 PRINT:FRINT"Final de la vuelta, campeon!" 
570 PRINTiFPRINT"Tu puntuacion ha sido"C 

380 FRINT"Y la media por hoyo fue" INT ((C+,5)/9) 
390 PRINTiPRINT 


SS 0.0 O 0 O (0 (O -Q-Q 


O 


O 
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600 FRINT"Aprieta la "S* para otra vuelta, o "N* | 
lo para acabar." e 
610 AS=INKEYS 
| ARO IE ARZSUS" AND As$i"s" AND ARZ23"N" AND ASZ3" ' 
| n" THEN 610 | 
] 
1 1 
J ] 
1 | 
: 


60 TE AgR="S" OR Af="s" THEN 10 
640 PRINTEFRINTU"OR, gracias por jugar, Campeon'"y 
END 
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CABALGATA DE PUZZLES 


Este juego no requiere ninguna explicación. Las reglas están todas 
contenidas en el programa que presenta, además, toda una divertida 
sucesión de actividades y juegos. Como descubrirá el jugador en su 
momento, uno no puede pasar al siguiente juego antes de completar el 
anterior. 

El listado es bastante largo, pero es fácil convencerse de que mere- 
ce la pena si se piensa en todos los agradables momentos que se 
podrán disfrutar una vez que se tiene introducido. Cada vez que un 
amigo le diga aquello de lo maravilloso que es disponer de un ordena- 
dor personal para después añadir que el problema es saber lo que se 
puede hacer con él, todo lo que tendrá que hacer el lector es meter 
este programa y después irse a leer un libro tranquilamente mientras 
el ordenador se encarga de entretener y convencer al amigo en cues- 
tión. 

Lo que sigue es un ejemplo del funcionamiento de CABALGATA 
DE PUZZLES: 


Piensa un nunero entre 
uno y sesenta y 1res 


Ahora te voy a mostrar CINCO 
pantallas de nuneros, 
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— — 
lv Los 
Pa] ma 
a > doy 
=— Us =— le 
«Ls iS “e 
[a od a da a] == AA CI == — 
A o A == is a a] == 
== "+ e 
E P-— 0094 -— a A -— 
IS E yl E a] —a e > a E «— Loa 
aL ro e 
e AA O A - € 70 AT -.- 
pa A 0 A Aa ZA > el E a ral 
5 LAS | ES 
— A a | 
pa A el -- - E a E . -- 
> MATA — ET 
=—— PM 0d la 0 e - =s a a E a] _ pa 
pese sl nr sl E 
a Ea a] Ole vr => e 
e A e | = A A A = 
vri A TO ld tl a] A o Ds a A A 
UA A an RAS 5 ES re. LE .> 
a —— e A e E a a E] a Cu. iv 
Kar —ta- 4 ai A A A «> «ie Ad o AA “0 ala 
Mis mn == == 
A Ls - «—a 
A TIRA E AAÁ 
.. ma pea] 
TN a Ta 
=-— «E mE a -—e -—. 
A A —— Los ura 
a En pas “E 
me E su ó 
0 LL, Ls Elgraa —s La — ia 
1 e MA — a — dla E 
=— =— Lv Pr “La “ie 
Ue a il a == — Ma 0 == 
= — mu so o A o a a a A po 
a CN a Lrz E == = 
Car y Y A y a a e o RÁ AE y a + el E] -—— 
PA PO a] - Pa E Y a] —a Uns A da yl Y a] — iv 
po A e WT A e] «La E 
AAA TA ea Ea A A | a cs . 
== = a a E] 1d 4H e ll A 0d lr e ZA 
AAA a e La Ur? 
IT LT A perso ¿E e e TA A CC 
0 A a E el E a] -. 
en 


Pd o — 0d 
SS 
E] 
A A 


E 4 Ba e 
a 


a E ds a E] 
bt 

DT A AÑ 
A AA A A PO 


esta aqui ÓN' 
tá 4qu)s 


Derime *5' 
Derima * 


. 
Al 


o e E 
a ds o a] 


E 


E ó 
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16 17 18:1920.21 7 12 13 14:15 16.37 3 

23 24:25 26 27.00 0% 349414743444 

F ñ ' A G 40 f ¿ F 

30 31 48 49 50 51 32 46 41 46 49 30 351 32 

pa > A E ” 

57 54 55 56 57 58 53 03 54 55 56 57 50 58 
60 61 62 63 60 61 62 63 


Oprine *5' si el munero — Oprine 'S' si el punero ¡E 
está aquio ÓN 51 no esas] esta aqulo CN sl ño esas] 


Tu NUNErO eras, 


y 3 
Ú y 


Voy a pensar Un o 
entre uno y 48 y — 
tlenas solo se]s A rodas 

de acertar al lo cOnsiques» E 
pasas al siguiente juego | ] 


$1 no lo CONS1gUES» 
te dare Una oportunidad mas facil (A 
hasta que lo CONsigaS... Y asl 

sucesivanentes hasta que incluso == 
alguien tan estupido como un Runano Lo) 
pueda conseguirlo... _——» 


Espera Un MOMENtO... dd 
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rr = 
| 
l—= 


PS 
LJ 


AS 
L) 
L—— nd 
a ==] 
| 

Ñ 

LL 

' A Y 
¡ | 
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Ol, estoy pensando Mi hunero 
entre yn: y db 

Adelante con el intento No ] 
¿18 

Denaslado bajo 


Adelante con el intento No ¿ 
73H 


Den naslado alto! 


Adelante con el intento No 


Yupi11 100 yivagl! 


Lo has conseguido, muchacho... 


Es el momento de 


asombrarte,., 


y y Opride > BET UR 1 Mes. spues 
de haberlas ejecutado... 


Enpleza por multiplicar tu 


edad Por d08,1.. 
A” 


| 


JOBdOdooooO 


Ahora sumale CINCO... 
Ahora multiplicalo por ¿8,,, 
a 


A ATA A O 
añora Pestale ¿bos 


suelto que lleves en el bolsillo... 


a ¡esse 


” 


Ahora dane el nunero 
3 Je h al Pp E 5 ] 1 1 3 y Ñ E 
21905 


tenes ¿0 pesetas Sueltas... 


y tienes ¿0 a2n05,.. 
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244 => 


Pongamos tu Cerebro a 
| a P da ñ QaN O 1 


EF esto Jue D07 BNpbezanos 
can dez J4edos de cuatro 
objetos en Lineas COn 

un espacio entre ellos: 


ESEXA 4 


Y as] SUCeSIVaMente, ss. 


Aprieta RETURN cuando 
estes preparado... 


Tienes que conseguir que 
ipirez Cañ 3511 

da ERRE 

enel tienpo mas corto 
posible... 


solo puedes noverte eh un 
Espacio val 0 3 Lar 
ota Ple7a en Un espacl 
Ya, lo... ta 3] Y Como nda 3 


denostrartes., 


Tienes 4 correctas 


Nunero de la pieza que quieres 


Lo cual nos lleva al final 


de nuestra cabalgata de puz 


sobre 


mover? 


mes 


cod 5 " para Jugar de NUEVO 


EN! Pal e rd 


iraclas por pasar tanto 
pleno jugando CONMADO 0 


Te aseguro que fue divertido! 


Espero volver a verte. 


n= 

Ú | 

0 == Al 

l 

Ú ==) 
===, 


Mer ==] 
G W 
l l 
A | 
= 

H 
él) 
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Y este es el largo listado que había prometido: 


10 REM Cabalgata de puzzles 

O GOSUB 2330 

A AN 

40 PRINT"Fiensa un numero entre" 

30 FRINT"uno y sesenta y tres" 

60 GOSUB 23530 

70 FRINT"Ahora te voy a mostrar cinco" 
80 FRINT"pantallas de numeros." 

90 GOSUBE 2350 

100 FRINT"Si tu numero aparece en la pantalla,' 
110 FRINT"limitate a apretar la SS," 
120 PRINT"Si no esta en la pantalla," 
130 FRINT"limitate a apretar la *N*" 
140 GOSUB 2350 

1390 ERINT"Voy a decirte el numero que " 
160 PRINT"habias pensado, al final del" 
170 PRINT" juegos...” 

180 GOSUE 2560: GOSUE 25360 

190 GOSUB 2330 

PRINT"1 3.5 7911 13 15 17" 

210 PRINT"19 21 23 209 27 29 31" 

220 PRINTS 359 47 39 41 43 43" 

230 PRINT"47 49 31 33 33 37 09" 

240 FPRINT"61 63" 

230 GOSUB 630 

260 PRINT" 2 3 6 7 10 11 14 13" 

270 PRINT"18 19 22 23 26 27 30 

280 PFRINT"31 34 33 39 39 42 43" 

290 FRINT"46 47 30 51 54 339 38" 

300 PRINT"39 62 63" 

3210 GOSUE 630 

220 FRINT" 456712 13 14 15" 

330 PFRINT"2ZO 21 22 23 28 29 30" 

340 PRINT"31 360 37 38 39 44 403" 

a3O PRINT"46 47 32 da 34 Ey 00 

360 PRINT"61 62 63" 

370 GOSUB 630 

380 PRINT"8 9 10 11 12 13 14 15" 

390 PRINT"24 23 26 27 28 29 30" 


S.. EE DD) << 
GO. 0: 70.0 O O 0. O QQ 0 


O 
O 


O 


| 
| 
1 
| 
| 
| 
j 
1] 
1] 
; 
i 
] 
J 
| 
| 
| 
| 
] 
i 
1] 
j 
| 
t 
Í 
| 
| 
| 
| 
| 
| 
] 
/ 
] 
| 
. 200 
| 
1 
| 
| 
| 
| 
| 
| 
4 
1 
i 
i 
' 
' 
| 
| 
| 
1 
| 
| 
t 
] 
| 
| 
1 
| 
1 
| 
| 


¡SE 
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o. 0 00 


400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
300 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 


PRINT"31 40 41 42 43 44 43" 
FRINT"46 47 36 57 358 59 640" 
FRINT"61 62 63" 

GOSUE 630 

PFRINT"16 17 18 19 20 21 223" 
PRINT"23 24 20 26 27 28 29" 
FRINT"30 31 48 49 350 51 32" 
PRINT"53 54 559 56 57 58 59" 
FRINT"60 61 62 43 

GOSUB 630 

ERINTUZ2 33 04 0 A 37 38" 
FRINT"39 40 41 42 43 44 43" 
FRINT"46 47 48 49 30 31 2" 
FRINT"S53 54 559 36 597 38 39" 
FRINT"S60 61 62 63" 
GOSUE 630 

GOSUB 2350: GOSUB 2350 
GOSUB 2330 

FRINT" Tu numero eras ..! 
GOSUB 23590 

FRINT, NU 10 

GOSUB 2350 

GOTO7ZO 

EAS 

GOSUB 2350 
PRINT"Oprime *S5* si el numero" 

FRINT"esta aqui, "N* si no es. asi" 

As$= INEEY $ 

IF Asi3"n" AND A$23"N" AND Asi3"5" AND As" 


6" THEN 670 


6790 
700 
710 
720 


1F A$="S5" OR As$="s" THEN N=N+X 

GOSUB 23:30 

RETURN 
E 


E 


510) 
740 
730 
760 
770 


780 - 


790 
800 


GOSUB 2330 

PRINT"Es el momento para algo" 
PRINT"casi totalmente diferente!" 
GOSUB 23590 

W==4.0 

FRINT"Voy a pensar un numero" 
FRINT"entre uno y"W"y tu" 
FRINT"tienes solo seis oportunidades" 


O. 10 20 Y 756 -- 2 CO OL Y 


O 


O 


o. o 
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O E AO 


810 PRINT"de acertarlo...si lo consiques," 

820 FRINT"pasas al siguiente juego" 

830 GOSUB2550 

840 FRINT"Si no lo consigues," 

8530 PRINT"te dare una oportunidad mas facil" 

860 PRINT"hasta que lo consigaS... y asi" 

870 PRINT"sucesivamente, hasta que incluso" 

880 PRINT"alguien tan estupido como un humano" 

890 PRINT"pueda conseguirlo..." 

900 FPRINT:FRINT 

910. PRINT"Espera un momento..." 

920 GOSUB 2550 

930 GOSUB 2330 

940 FRINT"OK, estoy pensando mi numero" 

930 FRINT"entre uno y"Ww 

960 N=INT (RAND (-1)*W) + 1 

970 J=0 

980 J=J+1 

990 PRINT¿FRINT"Adelante con el intento No'"J 

1000 INFUT Q 

1010 1F Q=N THEN 1140 

1020 1F Qx<1 OR Q%W THEN 1000 

1030 1F (GN THEN FRINT"Demasiado bajo!" 

1040 1F QN THEN FPRINT"Demasiado alto!" 

1050 1F J26 THEN 980 

1060 PRINT:FRINT"No tienes remediO,.." 

1070 PRINT"Estaba pensando en el "N 

1080 IF W=5 THEN FRINT"Eres un caso desesperadO. . 
¿Vamos a probar"¿*FRINT"algo diferente": GOSUR 2330: 
GOTO 1190 

1090 PRINT 

1100 FRINT"Bueno, parece que tendre" 

1110 PRINT"que darte otra oportunidad..." 

11320 WeWN/2 

1130 GOTO 940 

1140 GOSUR 2350 

1130 PRINT"Yupiii!l!!  vivaa!!!" 

1160 GOSUB 2350 

1170 PRINT"Lo has conseguido, muchacho, is." 

1180 GOSUB 2350 

1190 GOSUB 2330 

1200 REM 00 E E A A 
DEM E E E E E HE A EH 


O. E E O O ¿Q- Y 


O O 0-50 


O 


2 E ES 


1210 
1220 
12%0 
1240 
1230 
1260 
1270 
1280 
1290 
1300 
113510 
1:35:20 


O 


Sol oe! 


1340 
13390 
13460 
1370 
12380 
1390 
1400 
1410 
1420 
14030 
1440 
1430 
1460 
1470 
1480 
1490 
1500 
1510 
13920 
13930 
1340 
130390 
1360 
13570 


PRINT"Es el momento de" 
FRINT"asombrarte,.." 

GOSUB 2350 

PRINT"Sigue estas instrucciones,” 
PRINT"y oprime RETURN despues" 
FRINT"de haberlas ejecutado..." 
GOSUR 23590 

GOSUB 2330 

FRINT"Empieza por multiplicar tu" 
PRINT"edad por do..." 

INFUT As 

GOSUB 2530 

PRINT"Ahora sumale cincO..." 

INPUT As. 

GOSUB 2330 

FRINT"Ahora multiplicalo por SO..." 

INFUT As 

GOSUR 2330 

PRINT"Ahora restale 365..." 

INFUT As 

GOSUB 2330 

PRINT"Ahora sumale la cantidad de dinero" 
PRINT"suelto que lleves en el bolsillo..." 
INFUT As 

GOSUB 2330 

FRINT"Ahora dame el numero" 

FRINT"que ha resultado..." 

INFUT A 

A=A+1153 

B= INT (A4/100) 

A=A-100*E 

GOSUB 2530 

PRINT"Tienes "A"pesetas sueltas..." 

GOSUB 2350 

FRINT"y tienes "B"anoS..." 

GOSUB 23590 

REM A IIA 


FE DE EE IE DEE IE IE E IE IEEE HEHE E IE HE 


1580 
1590 
1500 
1610 
16:20 


GOSUB 23:30 

PRINT"Fongamos tu cerebro a" 
FRINT"trabajar de NuevOD...' 
GOSUB 23530 

PRINT"En este juego, empezamos" 


O +0 O O O O 4 


O- $ 0 0 0 


O 
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DO E O DD O 2 140 O 


O 
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1630 PRINT"con dos juegos de cuatro" 
1640 FRINT"objetos en linea, con" 
1050 PRINT"un espacio entre ellos, 
1660 FRINT"algo asii" 

16706 FRINT 

1680 FRINT"$$$$ xH%" 

1690 GOSUBE 23930 

1700 FRINT"Tienes que conseguir que" 
1710 FRINT"aparezcan asii" 

1720 PFRINTU ee bp" 

1730 PRINT"en el tiempo mas corto" 
1740 PRINT"posible,..”"” 

1730 GOSUBE 2350 

1760 PRINT"Solo puedes moverte en un" 


” 


177% FRINT"espacio vacio, O saltar sobre" 


1780 FRINT"otra pieza en un espacio" 
1790 FRINT"vaciosn+.« «tal y como voy a" 
1800 FRINT "demostrarte, «.." 

1810 GOSUB 23501 GOSUB 2350 

1820 FOR Je=el TO 3 

1830 LS 

1840 EFRINT"S6BR% 20 

1850 FOR Z= 1 TO S00:¿ NEXT Z:C0LS 

1860 FRINT"S6$8 $4" 

1870 FOR Z=1 TO SO00: NEXT Z:CLS 

1880 ERINT"E6b6$D Ax" 

1890 FOR Z= 1TO0 SO0¿ NEXT Z:CLS 

1900 PFRINT" $64 e 4" 

1910 NEXT a] 

1920 PRINT 


ERINT"Y asi sucesivamente, ... 
1930 O 

1940 FRINT"Apri eta RETUEN cuando" 

1930 PRINT"estes preparadOn«.." 

1960 INFUT As 

1970 Xu] M=09 

1980 DIMA (M) 

1990 FOR Q=i TO M 
2000 IF (025 THEN A(0) 
2010 1F 0:55 THEN A(Q) 
2020 NEXT Q 

2030 GOSUBE 2330 

2040 C=(0 

2030 X=X+1 


ASCOEA") 
ASCO") 


Bou 


O 50. 1) E 70) 0 O dl Gr a O 


O 


O 


o. oO 


- GE O 


2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
21590 
2160 
2170 
2180 
2190 
2200 
2210 
AO] 
a 0 
AO 
MIL) 
O) 
ZO 
Bl" 
MONA > 10) 
Mod 10) 


2 OO 


a O 
270 


s" THEN 2360 


20 
a O 


AGO 


IF X=0 THEN 2080 

FRINT"Ese ha sido el movimiento No "X 
FRINT 

FOR QO=1 TO M 

FRINT CHR$(A(M0I3" "5 

IF 025 AND A(D) = ASC("*") THEN C=C+1 
IF AO) = O THEN H=0 

IF (0:55 AND A(0)=ASC("$") THEN C=C+1 
NEXT Q 

ERINT3FRINT"1 234567809" 

FRINT 

FRINT:FRINT"Tienes "C"correctas” 
GOSUB 2220 

IF C=8 THEN 2260 

FRINT:¿FRINT 

GOTO 2030 


INFUT"Numero de la pieza que quieres mover"i 


E=A (CT) 


ACT) =01 A (0H) =E 
RETURN 
FRINT:FPRINT"BEien hechO.««.. Has" 


FRINT"conseguido resolverlo en "*X"movimiento 


GOSUB 2330 
GOSUB 23:30 


A TR 
HH II FE HE IE IF E DEE IE E A E E E DE JE E 


FRINT"Lo cual nos lleva al final" 
FPRINT"de nuestra cabalgata de puzzles" 
GOSUE 2030 

PFRINT"Aprieta *S5* para jugar de nuevo" 
FRINT"O *N* para acabafann” 

Ab INEEY $ 

IF AS "nn" AND A$Z"N" AND As$<3"S" AND 


IF As$="S" OR A$="s" THEN 2460 
GOSUB 23530 

FRINT"Gracias por pasar tanto" 
PRINT"tiempo jugando conmigO...' 
FRINT"Te aseguro que fue divertido!" 
GOSUR 2330 

FERINT"Espero volver a verte..." 


Abzs" 


o oO 


GU 7 10 CO 00 O 0.0 O de 


O 


O 
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2450 END 
2460 GOSUB 2350 


| ) 
¿ | 

O 2470 PRINT"OK, ahi vamos de NnuevO..." a O 
| 2480 GOSUB 2550 . 
¡ 2490 CLEAR 

O | 2500 GOTO1O o 
¡ 2510 END 

O l 2520 REM AA l O 
RS : 
y (2530 REM Retardo, cls, print i 

O | 2540 CLS o 
(2550 PRINT:PRINT:FPRINT 
2560 FOR Z=1 TO 1000:NEXT Z 

O | 2570 RETURN | 0 


252. 


CAMPO MINADO 


Creo que ha llegado el momento de que nos enfrentemos a los 
horrores, terrores y peligros de CAMPO MINADO. Imagínese que va 
usted paseando tranquilamente al sol cuando de repente se encuentra 
atrapado en una zona amurallada en la que hay varios robots maníacos 
que no buscan sino su destrucción. 

Los robots aparecen con el símbolo del dólar, la H es el jugador 
humano y los asteriscos (*) son minas, mortales tanto para el jugador 
como para los robots. Estos, que están programados bastante torpe- 
mente, pueden detectar al jugador, pero no las minas. Así pues, la 
salvación del jugador está en conseguir poner una o dos minas entre él 
y el robot de modo que éste cuando quiera acercarse al jugador caerá 
en ellas y desaparecerá. 

Los robots tienen un truco: se sacan otros robots de la manga. Es 
decir, que el jugador puede pensar que sólo le persigue un robot y en 
el último momento ver que éste se convierte en dos o más, tomando 
cada uno de ellos direcciones distintas con el fin de acorralarle. Este 
no es un juego indicado para quienes gusten de la vida tranquila y sin 
sobresaltos. 

El jugador se puede mover hacia el norte, el sur, el este o el oeste 
(el norte está en la parte superior de la pantalla) e indica al ordenador 
la dirección hacia la que se quiere dirigir introduciendo la inicial de 
esa dirección (de modo que introduce '*N” si quiere ir hacia el norte, 
"*S” hacia el sur y así sucesivamente). 

Observe esta partida y se dará cuenta de que el jugador no tiene 
verdaderamente muchas posibilidades de salir con vida: | 
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DABL JOd 
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E 
o] . 5 m sm. m Aa m Ed mu TT 
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E 
A 
A o TT 
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E 
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E 
E 
E E 
E 
A A 
A e 
ZII - - mm A a 
0] .. E . El ni e e + e + TA 
A O 
HEDAIDA AA O A A A 


Id c0JUAmoN 


PONE] dl 


Este es 


10 
SO 
50 
A 


O 


¿GOTO 
7O 
80 
0 


l 
1 
| 
| 
] 
y 
A 
: 
i 0 
t 
) 
l 
) 
| 
l 
I 
100 


REM 
G0T 
REM 


CUENTA = 0 


FOR 


200 


el listado de 


Campo 
DO 
Mide ves 


3 i 
E ó ¡ i Y E 
3 
E ! K E E dy A 


CAMPO MINADO: 


minacdo 


los robots 


E=1l TO 4 
IF A(B(E),C(E)) = 42 THEN CUENTA = CUENTA 


xs (Ed 1 Y (E) 
1 B(E)<D THEN E (Ed == (Edd 
THEN B (Es sE dE) 


IF 
TE 


EE) 3D 
OEIAFE 


AND END(Gildo, 
AND END (ld. 


THEN 


Hd 


A A E 
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110 IF 2C(E)>F THEN 2C(E)=0C (E) -1 

120 IF E(EJZ22 THEN B(Ed=z 

130 1F B(E):14 THEN B(E3=14 

140 TF C(EZ2 THEN CE uz 

130 TF 2C(E):14 THEN C(E>)=14 

160 ACX, Y) =46 

170 IF ABE), C(E)) = 42 THEN CUENTA = CUENTA +1 
¿GOTOZOO 

180 IF ARES, CCE)) 
GOSUE FOG:¿GOTO 910 

1980 A(BIEOD,C(E)? = 236 

200 NEXT E 

210 IF CUENTA < CH THEN CUENTA = CH 

SO CH= CUENTA 

20 TF CUENTA = 4THEN GOSUE 3001GOTO 3970 

240 RETURN 

200 GOSUE SS0: REM Inicializacion 

260 GOSUB FSOOREM Tmprime el campo 

270 BOSUBE 30: REF Movimiento de los robots" 

280 GOSUE 420¿REÉM Movimiento delo humano 

290 G0TOZ40 

SOQG)REM Imprime mampo de minas 

10 LOCATEO, O 

220 1F CUENTA + O THEN PFRINT"Cuenta de robots mu 
ertos "CUENTA: FRINT 

O TE CUENTA = O THEN FRINT:¿ FR INT 

AO ERINTE PRINT: FRINT 

2306 FOR B=1 TO 15 

360 FOR C=1 TO 15 

S7O FRINT O CHAS(AB, DU 03 

2380 NEXT € 

2980 PFRINT 

400 NEXT E 

410 RETUEN 

AO REM Mueve elo Jugador 

ON 

440 A$ = INEKEVA 

430 1 A%$ = "" THEN 440 

TF As="N" AND D32 THEN Dee 

E Af ANDO DD 4 THEN DuD+ 
1 Ag: AND Ex14 THEN FuF+ 
IE Ag: AND E>x2 TI 


ti 


72 THEN AECE, C(EJ) = 36: 


QQ: 0. Y 


O 
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O 0000: 00-20 O 0 DO O 0 


Oc (4 O 0 


On 2. Qe 


LO 


O 


TIO 
00 
10 
BO 
OSO 
240 
20 
40 
BETO 
5218) 
890 
900 
210 


AD, E) 

ETERNO 

¿Mo Imicializacion 

l INT A 4d 

DIM A. 1004 840,200 


RINT:ERINT" Un momentas, 
A EN 


RANDOMTZE 


E 
MMMM MD Me Me Me MMMM MIE MA 


“0 15 


A 
ic B= 13 OR Cul () 


NEXTO0 NEXT E 

REM Situa las minas 

FEDR Bull TO 20 

E INT CRNDO Cd LA e 1 
Dos INT (RNID (+ ¿1)13) + 1 
IF A(CAD =858 THEN 6470 


CAM) DA mm 42 


NEXT E 
DATA 4 As 1 Dr Da La 7 
REM Situa Los Eabote 
FOR Exid TO 4 
A IA A 
Fs NT ORNDO Gilda) e 
1 AM, FF) ea 4£ THEN 770 
B(E)=D; CE) EE 
ACE), ia 
NEXT E 
REM Situa al humano 
De TNT CRND O A LAA 
Fi TNT CRND CR 
IFE A(D,F> 22 46 THEN 830 
AD, Fru7Z 
RETURN 
REM Humano en cd, f 
REM Robots en b(e,c (e) 
REM Final del juego 


prrotr 


E Do 


13 


po " 
« LI no 


THEN A4(B,0) 


O” 0 O O O O a 


o.COoO0 o. O 


O 


O 


257 


258 


O2O 
PEO 
740 
PO 
360 
970 
900 
790 
1000 


| 
| 
l 
| 
| 
l 
I 
! 
' 
| 
l 
l 
1 
| 
J 
1 


CLOEFRINTUSA robot te ha alcanzado! !" 
CH=04 CUENTA=03 GOSUB 340 

Ab .”o. 

TE TINEEYSsS<30"0 THEN 730 

GOSUE 570: GOTOZOO 

CLO+FRINT"Has vencido a los robots! !" 
GOTOSZO 

CLOrEFRINT"Has cnacado con una minmal!" 
GOTO 970 


O 


O 


O. 0 


CEROS Y CRUCES 


Estoy seguro de que este juego no necesita ninguna introducción. 
Este programa juega bastante bien, pero de un modo no del todo 
predecible, lo que hace que el jugador humano tenga alguna posibili- 
dad de ganar de vez en cuando. 

Puede que no suene muy justo, pero muchos programas de este 
juego están escritos de modo que el jugador humano, de no verse, de 
hecho, vencido por la máquina, a lo más que puede aspirar es a un 
empate. 

Este programa decide quién abrirá el juego en cada partida y 
responde rápidamente a las jugadas del jugador humano. La manera 
de jugar de éste es simplemente introduciendo el número de la casilla 
a la que se quiere mover. 

Vamos a echarle ahora una ojeada a una partida de CEROS Y 
CRUCES: 


¿ ” 
e ES E 
E E 
Ed - - E 


Teclea tu movimiento 


259 


260 


E 


Teclea tu movimiento 


Teclea tu noviniento 


A e 


Teclea tu movimiento 


Teclea 44 movimiento 


0 


Teclea tu movimiento 


Es 
455 


Teclea 


tu movimiento 


O. 0. 0 


| 
) 
1 
| 
l 
| 
) 
4 
1 
/ 
i 
i 
) 
l 
! 
| 
l 
l 
i 
É 
i 
¡ 
Í 
t 
l 
' 
' 
' 
| 
| 
¡ 
J 
¿ 
| 
i 
i 
i 
Í 
l 
l 
| 
! 
' 
t 


Ph 
Pe 
A] 
—— 
SR 


Do 
aa 
=> 

= 


Tablas! 


Y este es el listado del programa: 


10 REM Ceros 
O DEFINT A-Z 
20 CLS 

YO. N=O 

30 PRINT"Aprai 
60 
VAS) 
10) 
90 
100 
110 
120 


N=N+1s IF 
LS 

DIM A(7) 
RANDOMIZE 
CLS: FOR 
IF RKND(12:5 


FRINT"estes 


N==1 


Pad 


Y Cruces 


eta cual quier 


INKEYA="" 


TO P1A(N)= 
THEN FPRINT 


preparado para 
THEN 70 


tecla cuando" 


jugar" 


=Q1 NEXT ON 
"Yo hago el 


primer 


ovimiento" "¿FOR J=1 TO 1000: NEXT¿CLS:GOTO 100 


130 GOSUE 
140 GOSUE 
130 GOSUB 
160 GOSUB 730 
170 GOSUE 480 
180 1F A(D=0 


TOO 
480 
670 


THEN ACI)" 


=14G60TO 


130 


190 REM Fara completar la fila 


200 D=1 
210 E=1 
IF E=1 THE 
IF E=2 THE 
IF E=3 THE 


230 


240 


N Xu=liYueza Zed 
N X=1l1Y=452Z=7 
N X=1:Y=53Z2=9 


m 


O 0: 0 € 100 0 q 4. 


261 


S. ED 


262 


20 


2600 
270 


IF B=4 THEN X=3:Z=7 
C=1 
IF A(=D AND A(Y)=D AND A(Z)=0 THEN A(Z)=1 


¿ GOTO 130 
280 
GOTO 
290 
GOTO 
200 
210 


IF A00=D AND A(Y)=0 AND A(Z)=D THEN A(V)=1: 
130 

IF A(X)=0 AND A(Y)=D AND A(Z)=D THEN A0O=1: 
130 

IF B=1 THEN X=X+3i Y=Y+ 30 Z=Z+3 

IF E=2 THEN X=X+1:Y=Y+1:7=Z+1 


IF (023 THEN C=C+li GOTO 270 
IF B24 THEN B=B+13 GOTO 230 
IF Di2 THEN D=D+1:2. GOTO 210 
REM Mueve aleatoriamente 
E: 

D=TINT. (ENDS) +1 


IF A(C)=0 THEN A(()=1:G0OTO 1:30 
E::E+ 1 

IF Bx21 THEN 370 

Bs 

E E+1 

IF A(B)=0 THEN A(B)=1: GOTO 130 
IF B29 THEN 420 

GOSUB 730 


PRINT:PRINT "Es una linea" 
GOTO 650 
REM Comprobacion del ganador 


FOR BE=1 TO 4 

IF B=1 THEN XuldipYoda Zas 
1F et THEN X=1:Y==4; Z=7 
IF B=3 THEN XuliY=5iZ=09 
IF B= pi THEN X=31Z=7 


FOR C=1 TO 3 


IF AX)=A(Y) THEN 1F A(Y)=A4(Z) THEN 1F A(X)3< 


0 THEN 610 


560 
570 
3380 
390 
600 
610 
620 
630 


IF Exl THEN X=X4+Zi Yo Ye Za Zo Zo 

IF Ex THEN X=X+15Y=Y+l5Z=2Z+1 

NEXT E 

NEXT E 

RETURN 

REM El ganador 

FRINT 

IF A(X)=1 THEN FRINT "Soy el ganador!" 


o oO 


O. O. -9 00 4. O O E O QQ): 


O 


O 


O |. 640 IF A0O=2 THEN PRINT "Tu eres el ganador!" ¡O 
| 650 FOR O=1 TO 1000: NEXT O 
660 GOTO 110 

O | 670 REM Movimiento del jugador O 
1 680 PRINT: PRINT "Teclea tu movimiento" í 
0690 As=INKEYS 

O 700 IF A$<"1" OR A$>"9" THEN 690 O 
ro 710 B= VAL (A$) 
| 720 1 A(B)20 THEN 490 

O 1 730 A(m)=2 0 
740 RETURN | 
l 730 REM Impresion 

O 760 CLS O 
000770 PRINT:PRINT:¿PRINT:FRINT 
780 PRINT"1 2 3 "; 

O 1 790 FLAG=0 ¡O 
800 FOR B=1 TO 9 
Qu 810 1F A(B)=0 THEN FLAG=1 LO 
l 820 IF A(E)=0 THEN FRINT O" —- "3 
o 830 IF A(B)=1 THEN FRINT O" 0-65"; 

'o) : 840 IF A(B)=2 THEN FRINT O" X "3 O 
| 850 1F B=2 THEN PRINT: FRINT ¿FRINT "4 56 “3 
860 IF B=6 THEN FRINT: PRINT: FRINT "7 8 9 " : 

870 NEXT E 

O ' 880 PRINT:FRINT - O 
' 890 1F FLAG=0 THEN 460 

O 900 RETURN | O 
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LAS VEGAS 


Y para terminar este capítulo, tenemos el clásico juego de tragape- 
rras, LAS VEGAS. Lo único que tiene que hacer el jugador es 
decidir cuánto quiere apostar antes de apretar la palanca del tragape- 
rras (lo que en este caso se hace presionando el espaciador del ordena- 
dor) y las bobinas girarán a toda velocidad. 

Las ganancias del jugador —como es fácil suponer— dependen de 
la relativa dificultad de las diferentes combinaciones que pueden apa- 
recer. El ordenador no para de hacer ruido a medida que se va desa- 
rrollando el juego y el jugador se va enriqueciendo o empobreciendo. 

Así es como se gana un millón (más o menos): 


Holas Jugador! 
Tienes $ 250 


Cuanto quieres apostar?14H 
DK senor» son $ 14% 


Aprieta la barra espaciadora para Jugar 


+ E Cereza 4x0! BARRA 118 8 Cereza dx LJ) 
2 UNA PAREJA > 


Y has ganado $ 9%: 
Hs] que añora tienes $ ¿48 > 
Lo az Ss hac Lendo Plep esta HOC... 
Tienes $ 34É 
Cuanto quieres apostar?lf2 
DK senor» son $ 17 
Rerieta la barra espaciadora para Jugar 
£ 1! BARRA ll y 4 Cereza da E Limon ++ 4 
++ UNA PAREJA >> 


Y has ganado $ 120) 


Asi que ahora tienes $ 46% 
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Y este 


E 


stas limplo» totalmente arruinado!! 


es el listado que le permitirá ganarlo: 


10 
20 
ZO 
40 
550) 
bi 
70 
18) 
20 

100 

110 

120 

130 


l 
| 
J 
| 
| 
] 
] 
J 
1 
' 
i 
a 
| 
l 
) 
| 
l 
I 
¡ 
U 
j 
1 
t 
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REM Las Vegas 

GOSUB 1110:REÉM Inicializacion 

GOSUB 870:¿RÉM Entrada del jugador 
GOSUB 3S20:KEM Operacion de la maquina 


IF CAJA 2 1 THEN 90 
IF CAJAS2300 THEN 290 


GOTOZO 

A ES 

REM QUIEBRA 

a 

GOSUB 410 

FRINT"Esta fue la ultima linea," 
FRINT"oh una vez poderoso jugado”... 


O" CO! OD (0 0 


SS E A 


140 
130 
100 
170 
180 
190 
200 
210 


Ele) 


GOSUE 410 

FRINT"Estas limpio, totalmente arruinado! 
GOSUBE 410 

FRINT"Aprieta *5% si te gustaria" 
FRINT"intentar de nuevo saltar la banca de 
ERINTULLELE LAS VEGAS 1011010 

FRINT" Co oprime “N* si quieres dejarlo)" 

Aé = INKEYS 

[E As23"5" AND Asis" AND As$Z2s"N" AND As" 


pa 


a" THEN 210 


O) 
Le) 
O) 
260 
27O 
280 
290 
IATA) 
10 
0) 
a 0) 
EE] 
0 
200 
370 


dia" 


200 


IF A$="S" OR A$="s" THEN GOSUB 1150: G0TOZO 
PRINT:¿FRINTU"QE, jugador..." 

GOSUE 410 

PRINT "Gracias por el juego!" 


REM SALTA LA BANCA 

FREZIAL 0 A DÉ E 06 A Dd 26M AE E 

GOSUE 410 

PRINT"Bien hecha, muchacho!" 

GOSUE 410 

FRINT"Has alcanzado el limite de esta casa" 
FRINT"asi que tendremos que echarte" 

GOSUBE 410 

PRINT"Es la gente con suerte como tu la que 


FRINT"mala fama a nuestro casillas ............ 


GOTO160 
REM RETARDO 

E RS 

FOR F=1 TO 1000 ¿NEXT F 

FRINT: PRINT 

RETURN 

a E 
REM SEGUNDO RETRASO 

REI] RR II E IM MD E E dd dE E dd dE 
FOR P= 1 TO 1000:NEXT E 

RETURN 

ERE dE 6 2 E 0 BE dE DEM DE dE dE E EM 6 ME dE Ed 
REMO MUEVE LA MAQUINA TRAGAFERRAS 
REIR ID E IE IE E dE E DE E E DE Md E 


Oc: 0 CO OL 10 14 1000 70 O O O 


O 


O 


267 


0) 
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340 CLS 
3390 GOSUB 410 
500 PRINT"J2 002 AAA AAA 


570 PRINT TAB()3" *+ "3 

3580 FOR M=1 TO 2 

390 GOSUE 460 

600 A=INT (43%RND (-1)) 

610 IF A22 THEN PRINTAS (4) 3:C0(M)=1 

620 IF Ax1 AND AZ%ó THEN FPRINTAS (3)3:C0(M)=2 


630 IF A:5 AND Az1i2 THEN PRINT A$S(1)5:20(M) = 23 
640 IF A+11 AND A220 THEN FRINTAS(253:C(M) = 3 
650 IF A+ 19 AND A ¿31 THEN PRINTAS(5)53:C0(M) = 5 


660 1F As 30 THEN FRINT A$(6)1:C(M) = 6 
5670 PRINT " * "5 
680 NEXT M 
690 GOSUB 410 
700 VICTORIA = O 
710 IF C(1) + C(2) + 2C(3) = 3 THEN PRINT"Tres ba 
rras!!!":GOSUB 410: "que buen estilo!!'":VICTORIA= V 
ICTORIA + 9:GOTO 750 
720 1F C(1) = C(2) AND C(3)=C0(2) AND C(1) =2 THE 
N PRINT"Tres campanas!!":*VICTORIA= VICTORIA + 23.9x 
GOTO 750 
730 IF C(1) = C(2) AND C(3) = C(2) AND C(1) <:1 
AND C(2 3 THEN FPRINT"Tres iguales": VICTORIA == 
VICTORIA+3.5:160T0750 
740 1F C(1) = C(2) OR C(1) = C(3) OR C(2) = 0(3) 
THEN PRINT"%* UNA PAREJA *:"* VICTORIA = VICTORIA+ 
.7 
7590 1F C(3) = 2 THEN FRINT"Una CAMFANA en un ext 
remo es bonus! ":*«VICTORIA = VICTORIA+.6 
760 IF C(1)=3 AND C(3) = 3 THEN PRINT"Una MANZAN 
A a cada lado es bueno": VICTORIA= VICTORIA+.5 
770 IF C(1) = 4 AND C(2)=3 AND C(3) = 4 THEN FRI 
NT"Esa vieja combinacion de": FRINT" "cereza, campana 
¿cereza es my favorita!":VICTORIA = VICTORIA+,4 
780 GOSUB 410 
790 VICTORIA = INT(APUESTAXVICTORIA) 
800 IF VICTORIA>0 THEN FRINT"Y has ganado $"VICT 
ORIA"!":CAJA=CAJA+VICTORIA 
810 IF VICTORIA=0 THEN PRINT"Y has perdido $"APU 
ESTA: CAJA=CAJA-APUESTA 


O. 0 


GO O O): 50. 2. O 


o. oo. 0 


O 


O 


ES 1 U. Y 


820 GOSUB 410 
30 IF CAJA + O THEN PRINT"Asi que ahora tienes 

$"CAJA 

840 GOSUE 460 

830 RETURN 

B60 REM dt dl dd A 

870 REM ENTRADA DEL JUGADOR 

880 REM 4d dt dl dd ld E 

890 CLS 

900 GOSUB 410 

910 IF CAJA < 300 THEN PRINT"Hola, jugador!" 

920 IF CAJA>299 AND CAJAZ600 THEN FRINT"Lo estas 
haciendo bien esta noche..." 

930 IF CAJA > 599 AND CAJAZ<900 THEN PRINT"Cierta 
mente, la Diosa de la Fortuna te ha sonreido!" 

940 IF CAJA +* 899 AND CAJAZ¿1200 THEN FRINT"La Fa 
talidad parece haberse olvidado de ti" 

930 IF CAJA *1199 THEN FRINT"Puedo reconocer el 
trabajo de Un experto" 

960 GOSUE 470 

970 PFRINT:¿¡PRINT"Tienes $"CAJA 

980 PRINT: INFUT"Cuanto quieres apostar "¡AFUESTA 

990 IF AFUESTA:CAJA THEN PRINT"No tienes tanto d 
inero!"1GO0TO98O 

1000 GOSUBE 410 

1010 PRINT"OKRK, senor, son $"AFUESTA 

1020 GOSUB 410 

1030 PRINT"Aprieta la barra espaciadora para juga 
pr 

1040 IF INKEYs$<2" " THEN 1040 

10530 FOR T= 1TO 10 

1060 PFRINT TAR (T/2)3 "XXX Un momento XARXA" 
1070 PRINT 

1080 NEXT T 

1090 RETURN 

1100 REM dl dd A 

1110 REM INICIALIZACION 

LIDO REM dl dl dl dd dd E dd 

1130 CLS 

1140 DIM A$(4),C (6) 

1150 RANDOMIZE 

1160 CAJA=250 

1170 FOR B=1 TO 6 


506. 0 $0 3 .0 A 


O” 0-0 0 


O 


O 
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1180 READ A$(K) 

1190 NEXT E 

1200 RETURN 

1210 DATA"$ Manzana $","* Cereza $", "* Campana *" 
¿UU BARRA 11%, "<% Limon 5", "<££ Ciruela 33" 


1 
| 
| 
1 
1 
| 
j 
1 
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Diversión con la impresora 


CELESTIA 


El primero de los dos programas que componen esta parte es 
CELESTIA, que el jugador puede ejecutar ya sea en la pantalla del 
televisor o en la pantalla del ordenador y la impresora al mismo tiem- 
po. Produce una serie infinita de dibujos que evolucionan de diferen- 


tes maneras. 
Los dibujos evolucionan de acuerdo con las reglas del famoso jue- 


go de ordenador LIFE que desarrolló John Conway durante su estan- 
cia en el Gonville and Caius College de Cambridge, en Gran Bretaña. 
Martin Gardiner divulgó este juego en el mundo entero a raíz de la 
publicación de un artículo suyo sobre el tema en el número de octubre 
de 1970, de la famosa revista Scientific American. 

En LIFE las células nacen, se reproducen y mueren de acuerdo 
con las reglas inventadas por Conway. Una célula en una red (se 
imagina que la colonia de células se desarrolla en forma de red) está 
rodeada por ocho más y el estado de esas ocho dicta lo que pasará con 
la célula en cuestión en la siguiente generación. 

Las reglas que gobiernan la evolución de las células son las si- 
guientes: 


— Si a una célula la rodean dos o tres más, sobrevivirá en la 
siguiente generación. 
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— Si hay tres, y sólo tres, células llenas junto a una célula vacía, 
nacerá una célula nueva en ese espacio vacío en la siguiente genera- 
ción. 

— Una célula que tenga cuatro células vecinas llenas morirá en la 
siguiente generación. 


No se preocupe el lector pues no tendrá que aprenderse las reglas 
ya que el ordenador las interpreta bastante bien él solo. Estas reglas 
producen dibujos que son mucho más atractivos (y mucho menos 
predecibles) de lo que el lector podría pensar tras leer las reglas. Este 
programa sólo tiene un giro especial, lo que lo hace todavía más 
efectista, en relación con LIFE. En realidad, CELESTIA imprime 
cuatro colonias cada vez que una colonia evoluciona. La colonia origi- 
nal aparece en un cuarto de la pantalla y los otros tres cuartos de la 
pantalla contienen las derivaciones de la original. 

CELESTIA es increíblemente efectista, como puede ver a conti- 


nuación: 
[ | RO O A 
rl A E A 
KAR KAR E A EA 
po E 
| E e IO (OE | o O 
ASS HR 4 1 k HORA 
A ECT 
r ios | O E O O OO AS 
(UN o 310 IA 
a a O 
as ARE 4 xx k ARA 
| | Md ER dy ME TE E 
¿A HOR A > ARA 
LERNER ME XE HKEFTITMEA 
a A AA O RA 
l | BO O O OA 
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ELZ 


RO E 
e ¿E 4 
LX LE ICA OA y 
Ja O O OA 
Jada OO 
RR A 4x4 Mia 
2 E A A A 
4 xx O qx 
E CA O A 
ELA: AAA CA 
EXT E 4 ARA 
A OO 
E! verd CE O 
IS E O A 


dob bb bb dd di 
5 O O O O 0 O E 0 


Rx AN 
E A 


Ax CO 4 
ETERETE ESE MESA 
IECEKRA 44 Hd RR 
XFA ERA A FETO TARA A 
JO AO odo 
¡E 44 RO 13s 
| q ] RO 
y JE A 
A O O 
A A | O 
RR OO 4 
JA OOOO od 
Ra o A 
AA A OO 
PIERA A AAA 
HR A 4x 


== 
== 
«— 
0 
0 
a 
UU E 
A] A A 


A k X Y 
0 O A O E O O 
A a OI OO OLA 
E O O AX 


¡E BORO A 
a a o a O A 
RA A dx 
E O A 
Ea od A 
RE CN 4 
E O AX 
JO O O CO A 
A 
A O O OOOO 
A O E 
A 0] X O 


Este es el listado: 


10 REM Celestia 

GOSUB 450¿REÉM Inicializacion 
ZO GOSUB £0:REM Impresion 

O 40 GOSUB 280: REM Evolucion 

30 GOTO 30 

60 LOCATE 0,0 

70 PRINT:¡PRINT¿FRINT , 

80 FOR X=2 TO 9 

90 FOR Y=Z2 TO 19 . 

100 PRINT CHR$(A(X, Y335 

110 NEXT Y 

FOR Y=19 TO 2 STEF -—1 

1730 PRINT CHR$(A(X, Y335 

140 NEXT Y 

130 FRINTEFRINT, 

1560 NEXT X 

170 FOR X=9 TO 2 STEF +1 

180 FOR Y=z TO 19 


| 

] 

1 

: 20 
| e 

j 


O. E 5D E: 0. 0 O 


y 
E) 


SS 0 0 


A. Y QQ 


190 PRINT CHR$(A(X, Y3)35 

200 NEXT Y 

210 FOR Y=19 TO 2 STEF 1 

220 FRINT CHR$CA(X, Y2)5 

230 NEXT Y 

240 PFRINTiPRINT O, 

230 NEXT X 

260 TF NzQ THEN GOSUB 640 

270 RETURN ] 

280 FOR X=2 TO 9i¿FOR Y= 2 TO 19 

270 CO 

300 1F A(X-1,Y-=1) = E THEN C=C+1 

210 IF A(X-1,Y) = BE THEN C=C+1 

320 IF A(X-1,Y+1) = BE THEN C=C-+1 

30 TF AX, Y=1) = E THEN C=C+1 

340 TF A(X, Y+1) = BoTHEN C=C+i 

350 IF A(X+1,Y-1) = Bo THEN CuC+l 

360 IF A(X+1,Y) = E THEN C=C+il 

370 TF A(X+1,Y+1) = BoTHEN C=C-+1 

380 TF AX, Y) = BAND CX:% ANDCZ2*2 THEN B(X, Voce 
790 IF AX, Y) <5E AND (x= THEN B(X, Y) =B 
400 NEXT YiNEXT X 

410 FOR. X=2 TO 9¿FOR Yu=z TO 19 

420 AQ, Y) =B(X, Y) 

430 NEXT Yi¿NEXT X 

440 RETURN 

430 REM Inicializacion 

460 LS 

470 FRINT"Aprieta la barra espaciadora" PRINTUcL 


480 N:=1 

490 TF. INKEY$="" THEN Ned+11:60TO0 490 
300 RANDOMIZE COLS 

310 FRINT"Quieres una copia por" 

Je PRINT"impresora (S O Ni" 


ISO AS=INKEYS:1F A$ <2 "S" AND A$<3 "sa" AND AS 


"NY AND Ag "no THEN OSO 

340 TF Af="S" OR A$="s" THEN N=0 
A OLE 
300 BRASS] (UR) E=ASCOT 0) 

370 DIM AO, 20,B(10,20) 

380 FOR X=2 TO 9:FOR Y= 2 TO 19 
370 AQ YE 


O. Y 


OO 00 0 0. 0. 0 


O O O +0 0 


O 
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600 TF RNDO-N13,43 THEN A(X, Y) == B 

610 E(X, Y1=A 0X, Y) 

ADO NEXT Yi NEXT X 

630 RETURN 

b A L: E E J NT “ A A 
me "REM espacios y 34 “se 

630 LERINTELERINT: LERINT" E 

bb FOR X=2 TO 9 

67 FOR Y=2 TO 19 

600 LERINT CHESS (AX, Y2004 

ARO NEXT Y 

7OQ FOR Y=19 TO 2 STEF 1 

710 LERINTEHES (AX, 1903:5 

TREO NEXT Y 

TEO LERINT:LERINT" "3 

740 NEXT X 

730 FOR X=2 TO 2 STEF 1 

TEO FOR Ye TO 19 

770 LERINT CHAS (A (X,. 1005 

780 NEXT Y 

770 FOR Y=19 TO 2 STEO —1 

800 LERINT CHE (A 0X, Y) 35 

810 NEXT Y 

2820 LPRINTiLERINT" " 

BA NEXT X 

840 LEFRINT 

850 RETURN 


O 5 O: O 500 - O 


O 


O 


| 
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| 
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VALLA PUBLICITARIA 


Este programa, como puede ver en el ejemplo que le ofrecemos a 
continuación, toma un mensaje de cualquier longitud (toda la que le 
permita la longitud de serie del sistema) y lo convierte en un mensaje 
impreso que se obtiene por la impresora. Las letras impresas pueden 
usarse entonces para decorar las paredes, como pósters, o como se 
quiera. 

No es necesario dar muchas más explicaciones para conseguir un 
resultado como éste: 


Ly La Ll Ll nus kEerrerr ooo nn 000 ZZ Z 
u 7 S o o Mm n y o 2Z Z 
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uy Ll Ly dl nun P ooo 000 00:58 a Z 
A La Ly bl da PrErrR: meter XI nun 
3 ul E Y LE 
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=] MEng e E de ed IÍIaaz nun 
1 ul um a XI XI 
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fa] a EDETÉA DLL DA a uuu M0 
O O A A 
' va 
Soo vá rx LL z Z aVBaa dy dl nn 


277 


Y este es el listado: 


10 REM Valla publicitaria 

ZO REM Todas las entradas en maylisculas 

Zo CLS 

40 INFUT"Cual es tu mensaje "AS 

SO B=LEN (4%) 

60 FOR C=i TO E 

70 De ASC(MIDS (AS, 10) 7-64 

20 IF D=-18 THEN GOSUBE 410:G0TO 130¿REM Funta ( 


90 TF D=-31 THEN GOSUB 420:60TO 130 REM Exclama 
cion 01) 
100 TF Dec3z THEN GOSUB 430: 560TO0 130 REM Espacio 
(0) 
110 IF D21 OR D:26 THEN GOSUB 430:G0TO 1320: REM € 
aracter desconocido 
120 ON D GOSUB 150,1060,170,180,190, 200, a 220, e 
ZO, 2404 2390, 200, 270, 2804 2704 200, 310, 720, AA , 340, 50 
O. 70, 380, 390, 400 
130 LEPRINTi¿NEXT € 
140 END 
130 LERINT "ABAAA"a LERCINTO " A ATELERINT" E 
QULEFRINT" A QUiLERINTUABACGA “a RETURN 
160 LPRINT"EBBERBRE"¿ LPRINT"B E  B"¿LERINT"E E 
EULERINTUE-C EB- B"i¿LERINT" BB EBE"«¿ RETURN 
170 LPRINT" CECCEC "¿LERINT"C CUILPRINT"EO 
SC" LEPRINTUE CULPRINT" C CU RETURN 
18% LERINT"DBDDDDDD":¿LERINT"D Da LERINT"D 
DU LEFRINTD D'Ui6LERINT" DDODDD" RE 


GC €. O 0 7 00 


GO 0... 


E TJERN 

190 LERINT"EREEREEEE “a LPARINTUE E EM LERINTUE E 
ECOSLERINTUE ECGLPRINTUES RETURN 

200 LPRINT"REFEFFFE" a LERINT" E FULPRINT" E 
Fla LERINTO EC FUELERINT" EY RETURN 

210 LPERINT" 666656": LERINTUS GSUuLEFRINTUG 
GUILFRINT"G CULPRINT" 566. GU: RETUEN 

220 LPRINT"HAHHHHHH "a LEARN" Ha LERINTO HUELE 
RINT" He LERINTU AHHH" RETURN 

230 LERINTELERINT"I T'RLERINT"UIIIIII Ma LERI 
E $ DU LEPRINT: RETURN 

240 LERINTELERINTJII SU LERINTOJ SULERINTOJ 

JULPRINT" JIJI" RETURN 
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230 LPRINTUEREKKER":LPRINT" EG LERINT"O E E"*L 
FRINTY OE EME LPRINTUK E" RETURN 
260 LPRINT"LLLLLLL“:¿FOR Z=1 TO 4:LERINT"L": NEXT 
Za RETURN 
270 LERINT"MMMMMMM": LERINT" ME LERINT" mp" 
¿LERINT" MU LPRINTUMPMMMMMM" s RETURN 
280 LERINT"NNNNNNN":¿ LEPRINT" MN LERINTO NIN 
"GLPRINT" NN" LERINT"NNNNANNN": RETURN 
290 LERINT" 00000": LPRINT"O D'GLPRINT"O 
O""LERINT"O O'ULERINT" 00000": RETURN 
200 LPERINT"REREFF" E LERINT" FP FUiLPRINT" E 
PURLPRINT" FR. FUELPRINT" FEU RETURN 
210 LPRINT" OOOO" LERINT"Q QULPRINT"O Q 
QULERINT"CO QULFRINT" OOOO": RETURN 
220 LERINT"RERERR"iE LERINT" Ro RYUE6LPFRINT" RE 
RUELPRINTYO RR RYSLERINTUR REE RETURN 
230 LPRINT" SS  SS'UiELERINT"S 5  S"¿LPRINTUS  S 
SULERINTUS S  SUiLPRINT" SS  S'"*«RETURN 
240 LERINT" TULERINT" TULERINT"TTTTT 
TTURLPRINT" TULPRINT" T'"RRETUEN 
add LPRINTO DUDO": LERINT"J" a LERINT"U"a LERINTUU 
'"ALEPRINT" DUUUUUU": RETURN 
260 LERINT" VUVW'R.LERINT" VU" LERINTUY"e LERINT 
POUM LERINT" VVVWV RETURN 
270 LERINT" WWWWWW"iLERINTUAN" LERINTUAWAWA"s LERI 
NTUN a LERINT" WWWWWW": RETUEIN 
2080 LPRINT"X XULERINT" XX XX UG LERINT" va 
LPERINT" XX XX" LERINTOX XxX RETURN 
270 LERINT" YY LERINT" YuULPRINT"YYYVY"8L 
PRINT" Y" LPRINT" YY" RETURN 
400 LERINT"ZZ ZLPRINT"Z 2 Z"eLPRINT"Z 2 
DG LPRINT"Z L LE"ILPRINT"Z 22 CG RETURN 
410 LPRINT"BEU A LERINTUSE% LERINT: LERIN TE LERINTR 
ETURN 
420 LPRINT"ERS BER". LERINT"BE REE": LERINTELERON 
TrELEPRINT: RETURN 
430 LPRINTELERINT: RETURN 


O” Hoc. O O: 0 O O. 


O 


O 


0 
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JUEGOS ESPACIALES 


¡Ah!, el espacio, el antiguo e infinito espacio, la última frontera. 
Ninguna colección de juegos de ordenador sería una colección comple- 
ta si no incluyera unos cuantos juegos espaciales. Lamentablemente, 
la mayoría de los juegos de este tipo se basan en el uso de conjuntos 
de caracteres gráficos particulares y en caracteres que se mueven. Por 
supuesto, si queríamos que esta colección de juegos fuera «universal», 
no podíamos asumir el acceso a un tipo especial de pantalla. Los 
PEEKS y POKES se encuentran entre los aspectos menos transporta- 
bles de cualquier programa. 

Así pues, los juegos espaciales de esta colección se basan ya sea 
sólo sobre el texto de salida, ya sea sobre los caracteres gráficos de 
salida de un tipo limitado (como usar <*> para representar la nave 
espacial). A pesar de la aparente limitación que esto supone, los pro- 
gramas funcionan sorprendentemente bien y, una vez que se consigue 
ejecutarlos, su adaptación, de modo que se puedan beneficiar de las 
ventajas de cada modelo de ordenador en particular, no debería resul- 
tar muy difícil. 
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ALUNIZAJE 1 y H 


Hay dos versiones de este programa. Yo sugiero al lector que 
empiece por la más sencilla y cuando vea que consigue alunizar dos de 
cada tres veces, considere que ya puede pasar al segundo en el que se 
utilizan INKEY$ y que exige una gran agilidad de pensamiento por 
parte del jugador para salvar a su nave del desastre. 

El escenario de estos programas es bastante familiar. El jugador 
está alunizando con poco combustible y por alguna razón el ordenador 
que lleva a bordo es incapaz de todo salvo de informarle sobre el 
estado del vuelo. La información que llega al jugador es limitada, pero 
adecuada. 

El jugador está continuamente informado de la altura de vuelo, de 
la reserva de combustible y la velocidad de descenso y lo que ha de 
hacer es introducir el empuje correcto para caer lo más suavemente 
posible sobre la superficie de la luna. El combustible con que cuenta 
es limitado de modo que debe racionarlo con el fin de tener suficiente 
en los últimos segundos de vuelo para amortiguar el impacto. Una 
característica (líneas 370 y 380) asegura que el jugador y sus amigos 
volverán al programa una y otra vez para intentar conseguir un mejor 
«rango galáctico» y crear un cráter cada vez menos profundo. 


Aquí puede ver ALUNIZAJE en acción: 


Altura: 1220 Velocidad: 4? == 
Combustible: 333 Lo) 


Enpuje?l? eS 


Tu nave se estrello a 28 Lp 
creando un crater de 126% petros de erofundidar 


A! 


a ==” 
i | 


3 
lá 


la mejor puntuacion hasta ahora es 


POP Tavo, aguarda Ll Proxla MIslóf... 
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Y este es el listado para la versión más sencilla del juego: 


10 
20 
ZO 
40 
S0 
60 
70 
80 
90 
100 
110 
120 
1730 
140 
150 
100 
170 
180 
190 
200 
210 
o 
O 
SAO 
O 
e 
aro 


REM Alunizaje 1 

MP=-10000 

RANDOMIZE 

A=-20- INT (RND (-1)60) ¿REM Velocidad inicial 


B:=1200+ INT(RND (-1)*280): REM Altura 
=320 + INT(RND (170): REM Combustible 
CLS 

PRINT:¿FRINT:¿FRINT 

B=INT (E): A=INT (A) ¿ C=INT (0) 
FRINT"Alturas "B,"Velocidadi "A 


PRINT" Combustibles "C 

FOR Qui TO 16-B/100 

FRINT 

NEXT Q 

FPRINT TAB (S+ RND Cid END Ci) a 


FOR Q=140-B/100 TO 16 
FRINT 

NEXT Q 

FOR F=1 TO SO00: NEXT E 
INFUT"Empuje"sE 

FOR F=1 TO SOO0:NEXT E 

IF EC THEN ExQ 

C=C-E 

ExBé+A+r(T-3)/2 

A=Ar (TD) 2 

IF Ex1 AND Ex100 THEN 300 
TF ABS (B> 2 20 AND ABS(A 2 15 THEN PRINTUH 


as aterrizado satisfactoriamente"s PRINT:PRINT"Bien 
hecho, intreapido capitan..." PUNTUACION =02344 60 


TOS4O 


IF Ex19% THEN 70 
1 Cl THEN 310 
FRINT"Te has quedado sin combustible" 


de profundidad" 
FUNTUACIOÓN = 100-ABS (A) 
FOR Fe 1TO 1000:NEXT E 
FRINT: ERINT 


3 O E ES LS A E Y 


0. 49 0 “O: 0 


O 


t y 
260 PRINT"Tu puntuacion galactica es"FUNTUACION | 
'25 270 1F PUNTUACION MP THEN MEP=FLINTUAC 1CIN 8: 
: 280 PRINT:FRINT"La mejor puntuacion hasta ahora | 
ces "MP 
O 290 PRINTFRINT"For favor, aguarda tu proxima mi O 
Co siOM..." l 
400 FOR F=1 TO 1500:NEXT F 
OT. 410 GOTO 40 O 

| 


Esta versión es sólo para cabalgadores del espacio experimentados: 


10 REM Alunizaje 2 

20 MP=-10000 

ZO RANDOMIZE 

40 A=0 

50 B=1200+ INT(RND(-1)4380) ¿REM Altura 
( 60 C=720 + INT(RND(-1)90): REM Combustible 
70 CLS 

| 80 PRINT:¿PRINT:¿FRINT 

90 B=INT(B):A=INT(A):¿C=INT(C) 

110 PRINT"Altura: "B, "Velocidad: "C 
120 FRINT"Combustible: "C 

130 FOR Q=1 TO 16-B/100 

140 PRINT 

150 NEXT Q 

| 160 PRINT TAB(15+ RND(-1)%3 —RND(-1)*3)3 "2x3" 
| 

] 

) 

y 

| 

t 

t 

1 

1 

| 

| 

| 

] 

] 

! 

4 

Í 


170 FOR O=16-B/100 TO 16 
180 PRINT 
190 NEXT Q 
200 T=Q 
210 Té=INKEYS: T=VAL (TS)1,.7 
220 1F ExC THEN E=Q 
20. C=CE 
240 BExB+Ar (E-D)/2 
2 AA+ (E-D)/2 
260 TF C21 AND R:100 THEN 300 
270 IF ABS (B) 2 40 AND ABS(A)» 2 25 THEN ERINT"H 
as aterrizado satisfactoriamente" y FRINT:¿FRINT"Bien 
hecho, intrepido capitan..." FUNTUACION =0*x2345 060 
TO0340 


O YU Q 
O 


O O QQ. O: 9 
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280 1F B:39 THEN 7O 

290 1F Cl THEN 310 

500 FRINT"Te has quedado sin combustible" 

210 FRINT"Tu nave se estrello a"ABS (0) "kipih." 

20 PRINT "creando un crater de “"INTCABS (00433 Um 
tros de profundidad" 

20 PUNTUACION = 100-"ABS (9) 

240 FOR Fs 1TO 1G0G00NEXT EF 

330 FRINTi¿ERINT 

260 PRINT"Ti puntuacion galactica es "FUNTUACION 

270 1F PUNTUACIÓN MF THEN ME=PLINTUACION 

SB PFRINTFRINT "La mejor puntuacion hasta ahora 
es "MP 

290 PFRINT¡FRINTUFor favor, aguarda tu proxima mi 
EC o 

400 FOR Fl TO 1500:NEXT E 

410 1 INEEYS<3"% THEN 410 

4GO GOTO 40 
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SUPERGUERRA 


Este programa es una imitación espacial que pone al jugador al 
mando de una patrulla que vigila un sector del espacio en forma de 
cubo que mide diez parsecs por cada lado. Los enemigos son los 
Dosznty. Sólo hay una nave Dosznty en este sector, nave que se mueve 
lentamente a través del cubo durante todo el transcurso del juego. 
Aunque el jugador no puede destruir la nave, lo que sí puede hacer es 
matar Doszntyindividuales. De hecho, el objetivo del juego es matar a 
todos los enemigos que sea posible antes de que se le agoten las 
reservas de energía. Aunque en este sector hay muchos más Doszntys 
que humanos, los enemigos son mucho peor tiradores y por tanto la 
posibilidad de que el jugador liquide a un buen montón de ellos antes 
de que termine su misión es bastante alta. 

El jugador sólo puede disparar a los Dosznty cuando se encuentre a 
tres unidades de su posición. Intentar hacerlo cuando están fuera de 
alcance sólo sirve para que la tripulación responda “La nave Dosznty 
está fuera de rango”. 

El jugador cuenta con una cantidad limitada de energía y cada vez 
que sufre una derrota ésta disminuye. 

No explicaré el juego con más detalle ya que el hacerlo sólo lleva- 
ría a disminuir el placer de jugarlo. El «comportamiento del espacio» 
no cambia de un juego a otro y por tanto el jugador encontrará que 
puede aprender a conocer los trucos de la guerra espacial desde la 
primera partida consiguiendo cada vez más puntos si continúa jugan- 
do. El juego tiende a explicarle las reglas por sí mismo a medida que 
avanza y el diseño de la pantalla está organizado de modo que refleje 
claramente lo que está sucediendo en cada momento. 
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Lo que sigue es un trozo de SUPERGUERRA en acción: 


Inforne General del Control Central 


Energia en los reactores principal y secundarios! 64 
l medidor interestelar de tienpo indica 50 
JADE 


Ñ 


+29 Las coordenadas galacticas de la nave son 10 7 3 
La nave nodriza Dosznty localizada en 1 2 4 


Los Dosznty estan hacia el norte oeste enfrente nuestro, senor 
JADE 


Cual es su orden capitan? 
Se y Ú 
Alvanzar), Rietroceder) 
Hioperespacio) 
Llasep) 


lá nave de los Dosznty esta fuera de rango 


AAA 
k Los scaners de largo alcance indican! Y 


k NZS --2 k 
k EXI --] K 
AR --5 


k k 
AAA OOOO 


Alerta Rojal» Alerta Roja! 


Los Dosznty nos estan disparando! nm 


Alerta Rojals Alerta Roja! 


los disparos enemigos nos han alcanzado, capltan 
, AS 
El Control Central informa unos danos de 9 | 
3 la camara de reserva de potencia» capitan 
Vencistes a 234363 Dosznty 
| | 
Los sistemas de vida se agota. honda! 
¿90taMoos ) 
agobia. a 
| | 
Ñ ) 
La cuenta ha sido A 
| — 
El mejor hasta ahora es Ú q ] 
Ravarda tu proxima mision MO 
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Este programa permitirá que la consola de su ordenador se con- 
vierta en la consola del ordenador de una nave espacial cada vez que 
el jugador se proponga liberar el cubo de diez parsecs de la amenaza 
de la nave nodriza de los Dosznty: 


O 


10 REM Superguerra 
20 MP=O 

20 GOSUE 1410 

40 GOSUB 1130 

50 TE LZO THEN 670 
60 GOSUB 1400 


80 Tl=eTI-1 
6 PRINT"Cual es su orden capitan?" 
100 FPRINT" Ns Sy Es 0" 


110 FRINT" Alvanzarl, Retroceder)" 
120 FRINT" H(iperespacio)" 


130 FRINT" Liaser)" 

140 TINFUT 2% 

150 IF Z$="N" OR Z$="p" THEN X=X-1 

160 TF Z$="8S" OR Z$="89" THEN X=X+1 

170 IF 2é="E" OR Z$="g" THEN Y=Y+1 

IF 2$="0" OR 2$="0" THEN Y=Y-1 

190 TF Z2%="A4" OR Z$=la" THEN Z=2Z-1 

200 IF Z$="R" OR Z$="r" THEN Z=2Z+1 

210 TF Z$="L," OR 2Z$="1" THEN GOSUE 490 
220 TF Z$="H" OR Z$="h" THEN GOSUE 1520 
20 TF X21 THEN X=1 


O 0 0-0 
Ó. O O 0 «(A 70 


D 


<> 


O 240 1F Y<1 THEN Y=1 
250 1F Z21 THEN Z=1 


Z 
260 TF X:10 THEN X=10 
270 1F Y310 THEN Y=lO 

280 IF Z:10 THEN Z=10 

290 GOSUB 890 

200 TF RND(1i)x2,7 THEN 40 

210 FRINT" 4d de dl e Me AA A AM AE DD MA MAA E 
RAR 

20 PRINT"* Los scaners de largo alcance indican 
EJ , 
20 PRINT"* N/S "A-X" 
xx" 


O. 0-0 “Y 


O 
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FP E O. 0 


360 
ARAN 
370 
S20 
SO 
40DO 
410 
4AZO 
AO 
440 
AO 
AO 
TO 
ADO 


PRINT"x* EJO ANBAT 
xx" 

PRINT"x%* AR —"C-Z" 
-'" 


FRINT "ted dal a e a a A DM MA ED DA 


A=A+ INT (RAND (132 — END(i112) 
B=B+ INT (RAND (-1)*2 — RND(1)%*2) 
C=C+ INT (RAND (1)%2 — RNDC-1)*2) 
IF A%1 THEN A=1 

IF A: 10 THEN A=10 

IF EX<1 THEN B=:1 

IF BE>10 THEN B=10 

IF C<1 THEN C=1 

TF Cx106 THEN Culo 

GOSUE 1630 

607040 

a 


MANI IM II Y A A 


430 
500 


510 
O 


REM Opcion Laser 

Lala 70 

GOSUE 10620 

TE ABSCA-XO. 2 OR ABS (E-V) 37 OR ABS (uz) 03 


THEN FRINT"La nave de los Dosez2nty esta fuera de ra 


mot 


ARA 


TE ARS CARO 23 OR ABS (BV 3 OR ABS (20 3 TA 


EN la UE 1430 RETURN 


O 
Leo 


dr 
CASO 


PRINT"Las 
GOSUBE 143€ 
LE RNDG ida. THEN 390 

FRINT'EL disparo no ha tenido exito..." 
COTO 

PRINT"Hemos danado la nave Dosanty, capitan! 


se omontados y dispuestos, Capitan" 


FOR dul TO GO 

FOR e] TO TO-ILMPRINTY "GA NEXT OH 
FRINT"Bjen hecho!!l!1%; 

NEXT J 

PT ENTORNO CA LOCO 47404 

GOSUE 1620 

RETURN 

REM Sin energia 

GSOSUBE 1620 


o. oO 


GO 10 190 “O O E 70 O O 


O 


O 
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O” O 3 


292 


480 FRINT"Este es el Control C£Central de la mave" 
700 SOSUE 1650 
e TE z THEN FRINT "Las reservas de energia 
BAY AGO po 

dl e 


a Ti boseanty ii GOSUB 10350 


sistemas de vida 56 AGokaD. o. 


FAO PRINT"Los. 
730 BOSE 1030 


TEO PRINT" AGORA. q. 0 
770 GOSUE 1030 
TO FRINT" Ugo LAT... 


790 BOSUE 1030 
0d FRINT"La cuenta ha sido "Til ToMmp 
e10 FERINT?FERINTUEL major ahora 


P"RINT"Aguarda bu proxima mision" 
YE 1450: 60 JE L63O0rSOTOZO 
241 MMM: Me Me MMMM He Me Me DL RI DE DD A DEA 
A MA A 


35 DOCU 16300 


260 FRIN "Has colisionado con la nave de los Dos 
zntyrir" 

870 GOSUB 1450 

2880 60TO7O 

890 REM Informe Dosanty 

00 1F ABS(A=X) 550 OR ABS (E-Y305 OR ABS ([0=Z)35 OR 
END (132,7 THEN RETURN 

710 GOSUB 1620 

920 FPRINT"Merta Roja!, Alerta Roja!" 

930 GOSUB 1650: 1F RNDG-1)<.25 THEN GOSUB 1620: FR 
INT"Alerta Amarilla!" G0SUB106301; RETURN 

3940 FRINT"Los Dose2nty nos estan disparando!" 

9350 GOSUE 1630 

360 PRINT"Alerta Roja!l, Alerta Roja!" 

970 GOSUE 1650 

39380 IF RND(G133,7 THEN 1110 

990 FRINT"Los disparos enemigos nos han alcanzad 
Oy capitan" 

1000 DA = INT (RAND (G1)9)+2 

1010 GOSUB 1650 

1020 PFRINT"El Control Central informa unos danos 
de" DA 


Ó 0 


Go -0:.0 0 O 6 O 0 0 O -0 


O 


O 


O" $ 0-9 


10730 FRINT"a la "5 

1040 TF Da=2 THEN PRINT"seccioón delanterá, senor" 

1050 TF DA>2 AND DAZ24 THEN FRINT"seccion de la tr 
ipulacion, senor" 

1060 IF DA AND DAz27 THEN FRINT"turbina principa 
l, senor" 

1070 IF DA > 6 THEN FRINT"camara de reserva de p0 
tencia, capitan" 

1080 L=L-DA 

1090 GOSUB 1620 

1100 RETURN 

1110 GOSUE 106%0 

1120 PRINT"EL disparo de los Dosznty no nos ha al 
canzados senor" 

1170 GOSUB 1450 

1140 RETURN 

1130 REM Informe general 

1160 CLS 

1170 PRINT" re e Me ME DA 
MMMM MMM RM MA A 0 0 A 

1180 FRINT¿PRINT" Informe General 

del Control Central" 

11920 GOSUB 1450 

1200 FRINT"Energia en los reactores principal y 5 
ecundarios:"L 

1210 IF L23 THEN FRINT¿FRINT“Cuidado..«. el nivel 
de energia" ¿PRINT"esta peligrosamente bajo!" 


1220 PFRINT, "El medidor interestelar de tiempo ind 
ica" TI 


1240 IF TIz1 THEN 480 

1250 PRINTER ME A 
HR RI E MI MI MI MI IA 

1260 IF T0 THEN FRINT:FRINT"La cuenta de destrund 
cion de Dosa2ntys es'"T 

1270 PRINT">*2>* Las coordenadas galacticas de la n 
ave son'"X3Y5Z 

1280 FRINTi¡FRINT"La nave nodriza Doszanty localiza 
da en"ArBiC 

1290 PRINTi¡PFRINT"Los Doseznty estan "; 

1300 1F AZ3+X OR Exz*Y THEN PRINT"hacia el"; 

1310 IF A2X THEN FRINT" norte"s 


o. o 


O" 0 0 0:00 0 a 


Ó G O 0 0 


O 
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í co 1320 IF 
1330 1F 


A THEN FRINT" sur"i 

E: 
1340 IF Ex 

Im 

c 


X 
Y THEN FRINT" ESTE"; 
Y THEN FRINT" oeste"; 
1330 IF Z 
13600 IF Z 
1370 IF C2Z THEN FRINT" enfrente nuestro, senor! 
1380 FRINT" ed e e e Al Md MM A e IA A E A 
HARI EI EA IE EE E DE AE IAS 
17390 RETURN 
1400 REM Ar DR A MR DE 
E 
1410 REM Inicializacion 
1420 CLS 
1430 RANDOMIZE 
1440 L=35+INT (RAND (13430): T=0:3 Tl=50 
1450 A= INTC(RND (-1)*10)+1 
1460 B= INT(RND (-1)*10)+1 
1470 C= INT(RND (-1)+*10)+1 
1480 X:= INT(RND (-1)*10)+1 
1490 Y= INTC(RND (-1)*10)+1 
15300 Z= INT(RND(-1)*10)+1 
1320 REM Opcion Hiperespacio 
1530 X=INT(RND (-1)+*10)+1 
1340 Y=INT(RND (-1)*10)+1 
1550 Z=INT(RND (-1)+*10)+1 
1560 FOR J=1 TO 10 
13570 PRINT TAB (J)33"*":FRINT 
1580 FOR H=1 TO J¿NEXT H 
1590 NEXT y 
16500 CLS 
1610 RETURN 
1620 FOR F=1 TO 1000:NEXT F 
1630 CLS 
16540 GOTO 1460 
1630 FOR Px=1 TO 1000¿NEXT F 
Ló6bO PRINTEERINT 
L47O RETUEN 


THEN FRINT" de la nave, senor" 
THEN FRINT" detras de nosotros, senor 


O 7 O O 0 


O 0.0 


O 


GQ O y 


O 


O 
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JUEGOS MENTALES 


Supongo que un 90 por 100 de los juegos podrían, sin estirar 
demasiado esta definición, denominarse «juegos mentales». Después 
de todo, todos ellos exigen una cierta cantidad de poder cerebral y de 
aplicación por parte del jugador. 

Sin embargo, los programas que se incluyen en esta parte exigen 
un poco más de esfuerzo intelectual que algunos de los otros progra- 
mas que aparecen en este libro. 

Encontrará aquí el FASTERMIND en el que tendrá que deducir un 
código de cuatro números inventado por el ordenador; asimismo ten- 
drá que comprobar su habilidad matemática en IDAHO STARS; y 
salvar el pellejo deduciendo la palabra escogida por el ordenador en 
EJECUTOR, 

Asimismo, tendrá que desbloquear un retorcido cubo en CUBI- 
CO, se calmará con una partida o dos de canicas en MUMBLE MAR- 
BLE (un juego que normalmente, en la «vida real», se conoce con el 
nombre de «Solitaire») y tendrá que trabajar bajo la presión de un 
incansable reloj para localizar unos átomos en CYCLOTRON. 

Si a su cerebro le queda todavía algo de fuerza, puede intentar una 
tarea que puede parecer imposible en FLIPPER y calcular en el me- 
nor número de jugadas posible, un algoritmo para solucionar el pro- 
blema que plantea SWITCHEROO. 

Finalmente, cuando su cerebro ya esté totalmente en forma des- 
pués de solucionar todos estos problemas, puede intentar deducir el 
mapa de un sistema de cavernas en EN BUSCA DE DARYL. No se 
imagine que este es un juego fácil. Es necesario un alto grado de 
concentración y paciencia. 
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FASTERMIND 


Empezaremos con algo bastante sencillo: FASTERMIND. Es posi- 
ble que el lector esté totalmente familiarizado con este tipo de juegos 
en los que uno de los jugadores intenta romper el código desarrollado 
por el otro. 

En este programa, el ordenador piensa en un código de cuatro 
números (utilizando los números de 1 al 9 y asegurándose de que no se 
repite ningún número dentro del código) y el jugador ha de intentar 
calcular cuál es ese código en no más de ocho jugadas. 

Después de cada intento por parte del jugador humano, el ordena- 
dor responde en términos de «blancos» y «negros», siendo un «negro» 
la recompensa que consigue el jugador cada vez que dice un número co- 
rrecto en la posición correcta y un «blanco» cuando dice un número 
correcto, pero que no está en la posición correcta dentro del código. 

Este es el listado, así que ya puede poner a trabajar a su cerebro: 


10 REM Fastermind 

20 CLS 

3O N=1 

40 PRINT"Aprieta una tecla" 
50 N=N+1 


70 RANDOMIZE 

80 CLS 

90 PRINT"Fastermind" 
100 PRINT 


| 
Í 
| 
| 
t 
j 
1 
60 IF INKEY$="" THEN 50 
| 
| 
1 
i 
1 
110 PRINT"Cuando yo te diga" ( 
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120 
1730 
140 
150 
160 
170 
180 
190 
200 
210 
220 
20 
240 
2530 
260 
270 
280 
290 
00 
210 
320 
O 
240 
200 
60 
370 
280 
290 
400 
410 
a42o 
4ZO 
440 
430 
4b0 
470 
480 
490 
500 
s10 
520 
S30 
540 


PRINT"escribe un numero de 4 cifras" 
FRINT"y luego aprieta RETURN." 


PRINT 


PRINT"Los digitos pueden estar repetidos." 


PRINT 


PRINT"Tienes 8 posibilidades para romper" 


FRINT"el dificil codigo." 
FOR Z=1 TO ZFOC00¿NEXT Z 
CLS 

DIMB (4) 

DIM D(4) 

H:=0 

FOR A=1 TO 4 
B(4)=INT(RND (NN) 9) +1 
NEXT A 

FOR C=1 TO 8 

PRINT 

PFRINT"Dime tu intento"iC5 


INFUT *X 

IF X:9999 THEN 290 

IF X21000 THEN 290 

P:= INT (X/1000) 

O: TNT ((X—1000*F3 /100) 

Re= INT ((X-1000*F-100*G60) /10) 


S=INT (X-1000*F-100*0-10*R) 
DD 

D(2)=0 

DC ER 

D (4) :5 

FOR Ex=i TO 4 

TF D(E)I2B(E) THEN 470 
PRINT" Negro"; 
B(E)=B(E)+10 
D(E)=D (E) +20 

H=H-+1 

NEXT E 

TF H=4 THEN 680 

FOR F=1 TO 4 


D=:D (F) 

FOR G=1 TO 4 

IF D2>B(6) THEN GOTO 360 
PRINT" Blanco"; 
B()=B(G)+10 


O 


O 


O. 0 
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330 GOTO 3570 

360 NEXT G 

370 NEXT F 

3580 FOR G=1 TO 4 

3590 1F B(G)2<10 THEN GOTO 610 
600 B()=B(6)-10 

610 NEXT G 

620 H=0 

630 PRINT 


640 NEXT € 

630 PRINT:¿FRINT"No lo conseguiste...” 

660 FPRINT"La respuesta es MBE BCORI BL 
4) 

670 END 


680 PFRINT:¡FRINT:¿FRINT"Bien hecho, Cerebro Frivil 
egiado!" 

679% FRINT 

700 PRINTi¡FRINT"Conseguistes la respuesta en' 

710 FRINT TAB(D) 5 "solo" "intentos" 


Or “E O 


ESTRELLAS DE IDAHO 


Las ESTRELLAS DE IDAHO tienen una propiedad especial: 
cuando se suman los números situados en los ángulos de las puntas 
que las forman, saldrá siempre el mismo total, independientemente de 
qué línea de números se escoja. 

Esta, por ejemplo, es una de esas estrellas: 


31 


35 A 
Far” 
le a 


Como se puede ver, cada línea de la estrella suma lo mismo. En 
este programa, el ordenador genera una estrella de este tipo dejando 
en cero dos o tres de los números. La tarea del jugador es calcular 
cuáles son esos números en el menor espacio de tiempo. 
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Lo que sigue es un ejemplo del programa en acción: 


ra 


Tienes ? por ahora 
Este es el intento No 2 


Dime cualquier numero que 
creas que es parte de la estrella?12 


M7 Tienes 9 por ahora 
Este es el intento No 3 


a Dine cualquier nune 


ro que 
LJ) creas que es parte de la 


estrella?20 


0 


20 


JO 


$1, lo has resuelto! 


y solo necesitastes d intentos... 
Derine "$ 31 quieres 

intentar otra estrella, 

oprine 'N' para terminar... 


| 


| i 
[| 


Este es el listado que le permitirá producir sus propias estrellas (y 
observe que puede cambiar el 3 de la línea 630 por un número más 
alto si quiere producir estrellas más difíciles de resolver): 


| 1 
O 1. 10 REM Estrellas de Idaho MO 
. 20 GOSUB 480:REM Prepara la estrella 
| 3O GOSUB 340:REM Imprime la estrella 
7 40 GOSUB 70: REM Pide intento Mo 
' 50 GOTO3O 
60 REM ae a MD MMMM MINI 
AAA MO) 
) 70 REM Pide un intento 
t 80 IF PUNTUACION > O AND PUNTUACION < 10 THEN Fi 
O ¡ RINT"Tienes"PUNTUACION"por ahora":PRINT O 
. 90 VEZ=VEZ+1 
O 100 PRINT"Este es el intento No"VEZ:PRINT ' O 
1 1 
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e O 
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110 PRINT"Dime cualquier numero que" 

120 INPUT"creas que es parte de la estrella"; 

130 PUNTUACION=0 

140 FOR J=1 TO 10 

150 IF G=A(J) THEN B(J) = A(J) 

160 IF B(J) <>0 THEN PUNTUACION = FUNTUACION + 1 

170 NEXT J 

180 FOR F=1 TO 1000:NEXT F 

190 IF PUNTUACION <10 THEN RETURN 

200 REM RdA dt de MM le E DE Al AA A DA 
eMe MA HA A 

210 GOSUB 340 

220 PRINT:IFRINT"Si, lo has resuelto!" 

230 PRINT:PRINT"y solo necesitastes"VEZ"intentos 


240 FOR F=i1 TO 1000: NEXT F 

2390 PRINT"Oprime "S" si quieres" 

260 PRINT"intentar otra estrella," 

270 PRINT"oprime “N* para terminaf..." 

280 As=INKEYS$ 

290 IF A$2>"N" AND A$<>"n" AND A$<>"S" AND As$X>" 
s" THEN 280 

300 IF A$="S" OR A$="s" THEN GOSUB 5:30 RETURN 

210 PRINTIPRINT"OK, gracias por jugar" 

320 END 

TO REM ete ll DD A E DA DA A AA 
eMe AAA 

340 REM Imprime la estrella 

2390 CLS:;PRINT:iPRINT 

360 PRINT TAB(11)5B (12 

370 FRINTIiPRINT 

280 PRINT TAB(2)33" "5BC(2D53" "BCR" "5B(4)3" "E 
(5) 

390 PRINT 

400 PRINTTAB(73);B(6)5" "3 B (7) 

410 PRINT 

420 PRINTTAB (10);E(8) 

430 PRINT 

440 FRINTTAB(433B(9)3" "3B(10) 

450 PRINT:iPRINT 

460 RETURN 

GTO REMO at 6 A DA Al A dE 
Me HH A E MA 


Oo 0 O O 10. 0 0 


OOO O O O 


O 


480 REM Frepara la estrella 


) | 
1 

O | 490 CLS O 
500 RANDOMIZE 
510 DIMA(10),B(10) 

O |. 520 DEFINTA - Z O 
530 VEZ=0: PUNTUACION = 0 
| 540 A=INT(RND(-1)*9)+1 

5 de 550 B=INT(RND (-1)+9)+1 LO 
| 560 C=INT(RND(-1)*9)+1 
570 D=INT(RND(-1)%9)+1 

O |. 580 E=INT(RND(-1):9)+1 ES, 
590 IF A=B OR A=C OR A=D OR A=E THEN 550 
600 IF B=C OR B=D OR B=E THEN 550 

¿20% 610 IF C=D OR C=E THEN 550 MO) 
620 IF D=E THEN 550 : 
lo 430 X=INT(RND(-1)*3)+1 

O 1. 640 A(1)=X ¡O 
650 A(2)=X-B+C+D 
660 A(TI=A+E 

O | 670 A(4)=A+D 50 
680 A(S)=X-B-C+E 
690 A(6)=A : 

O 1. 700 A(7)=A+C ¡O 
710 A(B)=A+B 
OL. 720 A(P=x - 2eB +2%D + E | 

730 A(10) = X-2B -C + D +2 ¡O 
? 740 FOR J=1 TO 10 

O! 750 B(J)=A(J) O 
1 760 IF A(J)=0 THEN GOSUB 530: RETURN 
770 NEXT J 

o ' 780 B(INT(RND(-1)*10)+1)=0 LO 
' 790 B(INT(RND(-1)*10)+1)=0 
800 BCINT(RNAD(-1)*10)+1)=0 

O! 810 RETURN | O 


305 


EJECUTOR 


Como verá en seguida, este juego es una versión para ordenador 
del conocido juego infantil LA HORCA. En este juego el ordenador 
escoge una palabra del banco de palabras que lleva incluido (conte- 
nido en las instrucciones DATA de las líneas comprendidas entre la 500 
y la 540) y después reta al jugador humano a que la adivine. 

El número de oportunidades con que cuenta el jugador depende de 
la longitud de la palabra (ver líneas 120 y 170). 

Veamos ahora a un humano (yo) intentando adivinar la palabra 
que ha escogido el ordenador: 


Tienes O letras correctas 
== Te quedan 10 oportunidades... 


” 
, 


Tienes ¿ letras correctas 
Dime tu siguiente letra?E 


Te quedan 10 oportunidades... 


a Dime tu siguiente letra?R 
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Estilos PETOCA,O 
Tienes 3 letras correctas Tienes ? letras correctas 
Te quedan 18 oportunidades... Je quedan Í oportunidades, 
Dine tu siguiente letra?D Dine tu siguiente letra?D 
Hey! Te has librado de n=, 


la ejecucion por otro dia | 
Lo conseguistes en 8 intentos : 


La palabra del Ejecutor era RETOCADO 


Este listado le permitirá arriesgar su pellejo: la noble causa de 
incrementar su vocabulario. 


10 REM Ejecutor 

20 CLS: CLEAR 

ZO N=0¿Y=0 

40 PRINT"Aprieta “*E* cuando estes dispuesto" 
JO FRINT"a afrontar al Ejecutof..." 

60 N=N+1: IF INKEYs$<>"E" AND INKEY$<>"e" THEN 60 
70 RANDOMIZE 

80 FOR G=1 TO RND(-N)x*22+1 

90 READ As 

100 NEXT G 

110 GOSUB 480 

120 N=LEN(A$) :¿DIMB (NM) ,D(N)> 

130 FOR G=1 TO N 

140 B(6G) = ASC(MID$(A$,G,1)) 

150 D(G)=B (6) 

160 NEXT G 


| 
) 
1 
| 
! 
| 
) 
j 
1 
| 
4 
j 
) 
l 
) 
| 
| 
! 
i 
4 
| 
i 
t 
t 
| 
| 
! 
! 
1 


A. dE TD Y 
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170 Q=INT(N+N/4 + .5) 

180 CLS 

190 PRINT:IFRINT"Tienes que acertar la palabra de 
1.08 

200 PRINT"Ejecutor en solo"OQ"intentos 

205 FOR Z=1 TO 2000: NEXT 

210 FOR J=1 TO Qi Y=Y+1 

220 GOSUB 400 

230 IF H=N THEN 340 

240 PRINT:FRINT:FRINT"Te quedan"Q+1-J"oportunida 
des..." 

250 PRINT: INPUT"Dime tu siguiente letra":C% 

260 F=ASC (0%) 

270 FOR G=1 TO N 

280 IF D(G)=F THEN D(G6)=03 J=J-1 

290 NEXTG: NEXTJ 

300 GOSUB 480 

310 GOSUB 400 

320 PRINTIFRINT:¡FRINT"Lo siento, pero tu hora ha 

llegado!" 

330 GOTOZ7O 

340 PRINT:PRINT"Hey! Te has librado de" 

3590 PRINT"la ejecucion por otro dia" 

360 PRINT"Lo conseguistes en'"Y-1"intentos" 

370 PRINTiPRINT"La palabra del Ejecutor era "¡As 

380 END 

400 H=0:CLS:¿PRINT:¿PRINT:FRINT 

410 FOR E=1 TON 

420 IF B(E>=D(E)> THEN PRINT"."x 

430 IF B(E)<>D(E) THEN FRINT CHR$(B(E))5: H=H+1 

440 NEXT E 

450 PRINT:¡PRINT:¿ IF H22N THEN PRINT"Tienes"H"letr 
as correctas" 

460 FRINT 

470 RETURN 

480 FOR O=1 TO SOG:NEXT O 

490 RETURN 

500 DATA"MERIDIANO", "MERITO", "MERMADO", "MERITOSO 


510 DATA"OBISFO", "OXIDANTE", "OXIGENO", "FALPABLE" 
y "HETERODOXO" 

520 DATA"FANDEMONIUM", "PANEGIRICO", "FARADOJICO", 
"FOBLADO" 


O" 2 :0- 0 - 0 50 


O” 05 1d O UY 


O 


330 DATA"RAMPA", "REMOLINO", "SACRAMENTO", "SABLE", 


; l 
| 1 

O "ESQUEMATICO" O 
340 DATA"SEDIMENTO", "SEXAGENARIO", "TEMPLADO", "TE. 1 

O LESCOFIO | O) 


309 


310 


CUBISTA 


Esta es una versión en dos dimensiones del famoso y colorido cubo 
que hace algún tiempo invadió el mundo desde Hungría. 
El cubo empieza con este aspecto: 


HhAÁannN 
BhAannN 


| 
ad 
- 
zx 3 


Después de cierta manipulación con el ordenador, tendrá este as- 
pecto: 


N — UY NN 
E 


Hhuwuy  — 
hh — NN 


La labor del jugador es volverlo a poner tal como estaba al princi- 
pio en el menor número de jugadas posible. Los números del cubo 
rotan en número de cuatro girando en la dirección de las agujas del 
reloj. Esto significa que: 


iZ 
3 4 


al girarlos tendrán este aspecto: 
Sd 
4 2 


Para rotar los elementos del cubo se introduce un número. La 
clave para mover es la siguiente: 


2 
NS A 
10 11 TE 


Veamos ahora qué efecto tienen un par de rotaciones en el cubo 
que hemos visto un poco más arriba: 


US ¿0 Ñ ) 
q | j 4 
$4 314 


Que giro quieres hacer (2 - 12), menos 
el Gol 97% 


0 E 
4117 
A 
Ad 


Tu giro cubista nunero 1 


Que giro quieres hacer (2 - 12),menos 
elioed Só 


311 


lr 
y 
4 

l 
” 
L 
7 
mi 


E 


Este es el listado: 


O 


10 REM Cubista 

13 CLS: CLEAR 

20 DIM A(4),B(16) 
30 RANDOMIZE 

40 REM 

SO B=1F=0 

60 FOR D=1 TO 4 

7O C=0 

80 IF B=1 THEN C=1 
90 IF B=23 THEN C=2 
100 IF B=2 THEN C=3 
110 1F B=11 THEN C=4 
120 B(B)=C 

130 B(B+1)=C 

140 B(B+4)=C 

150 B(B+3)=C 

160 C=0 

170 1F B=1 THEN C=2 
180 IF B=3 THEN C=6 
190 IF B=2 THEN C=2 
200 Bu=B+C 
210 NEXT D 
220 GOSUBE 410 


Oo <Q 0 
O: Y Y O: 0. q 


GQ 
O 


l 
| 
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] 
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! 
i 
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230 FRINTEFRINT 

240 1F F<11 THEN FRINT"GirandO...” 

2390 F=F+1 

260 FOR F=1 TO 900: NEXT F 

270 1F F<11 THEN X=INT(RND (-1)*12)+1 

280 IF F10 THEN FPRINT"Que giro quieres hacer (2 
- 12),menos":* INFUT"el 5 0 el 9"3X 

290 IF X22 OR X=5 OR X:=9 OR X>12 THEN 270 

300 A()I=B(X) 

310 A(2)=B(X+4) 

20 ACI)=B (X+ 5) 

330 A(4)=B(X-1) 

340 B(X)=A(4) 

3590 B(X+4)=A (1) 

360 E(X+3)=A (2) 

370 B(X-1)=A (3) 

380 GOSUB 410 

390 F=F+1 

400 GOTOZ270 

410 CLS 

420 PRINT:FRINT:¿PRINT 

430 FOR B=1 TO 16 

440 FRINTEB(B):5 

450 IF B/4 = INT(E/4) THEN FRINT 

460 NEXT E 

470 PRINT:¿FRINT 

480 IF F210 THEN FRINT:¿PRINT"Giro No"F 

490 IF F> 10 THEN FRINTi¿FRINT"Tu giro cubista nu 
mero"F-10 ¿FRINT 

300 IF Fz2 11 THEN RETURN 

3510 F=0 

320 IF B(1)=1 AND B(2)3=1 AND B(2)=2 AND B(4)=2 A 
ND B(3)=1 AND B(6)=1 AND E(7)=2 AND B(BD)=2 THEN Fu 
P+1 

330 IF BE(9)=3 AND B(10)=23 AND B(11)=4 AND B(12)= 
4 AND B(13)=3 AND B(14)=2 AND E(15)=4 AND E(16):4 
THEN F=F+1 

340 1F Fi2+2 THEN RETURN 

3390 PRINTEIFRINT"Lo has resuelto en solo"F-10"gir 
os" 

360 FRINTiFRINT"Bien hecho, cubista!" 


2 SS 2 E 3 


O. 0.0 0 0-0. 0. 0-0 


O 


O 


1 
| 
1 
| 
) 
4 
i 
| 
4 
1 
| 
l 
) 
| 
| 
| 
i 
4 
i 
¡ 
t 
l 
| 
| 
/ 
! 
| 
| 
] 
j 
? 
| 
i 
4 
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l 
| 
| 
| 
] 
| 
| 
| 
l 
1 
| 
' 
j 
| 
| 
| 
| 
| 
| 
ll 
| 
l 
l 
| 
! 
! 
| 
l 
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| 
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1 
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MUMBLE MARBLE 


Nuestro siguiente programa es una versión para ordenador de un 
juego que quizá el lector conozca con el nombre de «Solitaire», en el 
cual el jugador tiene que mover unas canicas en un tablero. Al princi- 
pio del juego sólo está vacío el agujero central. El jugador puede 
saltar sobre una canica para ocupar los agujeros vacíos. La idea del 
juego es terminar con una sola canica en el agujero central. 

Se han contado muchas historias sobre los orígenes de este juego. 
La más interesante de estas historias es la que dice que fue ideado por 
un prisionero de la Bastilla, quien intentaba con ello aliviar la monoto- 
nía de su celda. Independientemente de que esta historia sea cierta, de 
lo que no cabe duda es de que el juego crea una adicción, puesto que 
el jugador no parará hasta encontrar el medio infalible de resolver el 
problema que plantea. 

Este es el aspecto de la pantalla al principio del juego: 


ena da 

(39 para vendirte | 
E 

000 | 

00 ñ 
00000003 
000x000 4 Hasta ahora ha habido D movimientos 
LON 

0 0.0 É 

004 7 Que piedra quieres mover? 


De 


Prinero, la coordenada lateral 
(99 para rendirte) 


1234367 
00) 
Dx Ú ? 
0x 00000 3 Hasta ahora ha habido 4 movinientos 
000000 4 
00000005 
100 6 due piedra quieres nover?4Í 
00 ? 3 donde? 


Este es el listado: 


220 1F CUENTAZ +1 THEN 40 


| 
O! 10 REM Mumble Marble O 

20 GOSUB 410 

| 70 GOSUB 250 
O 40 REM ACEPTA EL MOVIMIENTO O 

50 FRINT"Que piedra quieres mover"; . 

60 INFUT A : 
Oy 70 1F A=99 THEN GOTO 240 kQ 
| 80 IF Az11 OR A>77 THEN GOTO 50 
| 90 IF A(A)<>79 THEN GOTO 50 
O | 100 FRINTA"a donde"; 2 
: 110 INFUT B | 
120 IF B<11 OR B> 77 THEN GOTO 110 
O 130 1F A(B)<>E THEN GOTO110 O 
140 A((A+B)/2)=E:A(A)=E:1A(B)=79 | 
150 MOVI=MOVI+1 
O 1 160 CUENTA=O ¡O 
| 170 FOR F=11 TO 75 | 
O | 180 1F A(F)=79 THEN CUENTA=CUENTA+1 O 
190 NEXT F 
200 GOSUB 250 
0 210 FRINT"Hay"CUENTA"piedras en el tablero" No 
| ! 
| i 
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RO 


240 


exle) 
260 
ne. 
270 
280 
290 
200 
210 
220 
ZO 
AO 
¿GOTO 
O 
SO 
27O 
80 


o. o O 


3 


390 
400 
4LO 
ao 
AO 
2.4.0 
AO 
460 
470 
480 
AO 
500 
310 
520 
530 
540 
550 
560 
570 

380 
390 

600 
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IF A(44)=79 THEN PRINT"Lo, conseguistes en s 


olo"MOVI"movimientos! "END 


FRINT"El juego ha terminado y no lo has cons 


eguido!'": END 


REM Impresion 
CLS¿REM Fon HOME aqui si tu ordenador lo tie 


FRINT"Frimero, la coordenada lateral" 
FRINTTAB(5)53"(99 para rendirte)" 
FRINT:¿FRINT 

FRINT" A E E - AS 

FRINT TAB (0); 

FOR D=w11 TO 73 

T=10* (INT (D/10)) 

IF D-T=8 THEN D=D+2:FRINT T/10:FRINT TAB (5)34 
260 

FRINT CHR$S(A(D)33" "5 

NEXT DiFRINT" q 

FRINT¿FRINTi¿FRINT 

FRINT"Hasta ahora ha habido"MOVI"movimientos 


FRINT: FRINT 

RETURN 

REM Inicializacion 

CL.S 

DIM A(87) 

Exa 

FOR D= 11 TO 73 

T=10* (INT(D/10)>) 

IF D-T = 8 THEN D-=D+3 
READA (D) 

NEXT D 

MOVI=0 

RETURN 

REM 42 es el ASC("*") 

REM 79 es el ASC("D") 
DATA 32,32,79,79,79,32,32 
DATA 32,32,79,79,79,32,32 
DATA 79,79,79, 79.,79,79, 79 
DATA 79,79,79,42,79,79,79 
DATA 79,79,79,79,79,79,79 
DATA 32,32,79, 79, 79,32,32 
DATA 32,32,79, 79,79 
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CICLOTRON 


En CICLOTRON el jugador hace entrar los átomos por la parte 
superior de la máquina especificando para ello un número y posterior- 
mente intenta localizar las partículas de antimateria escondidas en la 
máquina a partir del comportamiento del átomo. 

Si el átomo golpea una partícula de antimateria, puede ser absorbi- 
do por ésta o ser desviado hacia la derecha o hacia la izquierda. Un 
átomo puede verse afectado por más de una partícula de antimateria 
lo cual hace la resolución del problema aún más difícil. 

Siempre hay tres partículas de antimateria en la máquina, aunque 
todas pueden muy bien encontrarse en el mismo número ciclotron . El 
jugador cuenta con un número muy limitado de bazas o jugadas para 
encontrar la antimateria. En cada jugada el jugador puede escoger 
entre introducir el número en donde quiera meter un átomo o bien ser 
un poco imprudente y pulsar 8, lo que le da-la posibilidad de adivinar 
la posición de las partículas de antimateria. 

Este es el aspecto del programa cuando se ejecuta: 


Tienes A O 
Dine el nunero del ciclotron nor 
00 sl crees que sam. ss 
donde esta la antinateria 


- 


El ¿tomo salio de 3 
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O SS 0 
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I 
| 
i 
| 
| 
| 
¿ 
E 
6 
! 
i 
4 
) 
l 
) 
| 
| 
! 
i 
4 
3 
i 
t 
Í 
| 
| 
] 
! 
| 
! 
| 
J 
E 


Dine el nunero del ciclotron 
o 4 si crees que sabes 

donde esta la antimaterls 
Donde crees que esta 

la antimaterla? 

2,61) 

localizastes l correctamente 


Lo siento, se ha acabado el tiempo 


REM Ciclotron 
CLS 


N=Q00MT=04 DIM E(D,QACD, NC 
FRINT"Aprieta una tecla cuando" 
FRINT"estes preparado para empezar" 
N=N+da TF. TINKEYS="" THEN 60 
RANDOMIZE 

REM Situa antimateria 

FOR A=1 TO 2 

B(A)=INT (RAND (-1)7)+1 


NEXT A 

FOR Hu6 TO 1 STEF-1 

CL.S 
PRINTE¿FRINT¿FRINT"Tienes"H"segundos" 
FRINT"Dime el numero del ciclotron" 


PRINT"oO 8 sí crees que sabes" 
FPRINT"donde esta la antimateria" 
INFUT E 


O. CO Dr 00 1 € Y 


190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
700 
10 
720 
330 
740 
7350 
360 
370 
7380 
790 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 


IF C=8 THEN 520 

GOSUE 450 

D=1 

IF B(D)=C THEN 3530 

TF Di THEN D=D+1:G0TO 220 
GOSUB 500 

PRINT"E1 atomo salio de'"C 
FOR Z=1 TO 2000: NEXT Z 
NEXT H 

FRINT¿FPRINTi¿FRINT 


PRINT"Lo siento, se ha acabado el tiempo" 


FRINTi¡PRINT"La antimateria estaba en" 
FOR A=1 TO 3 

FRINT B(60);5 

NEXT A 

END 

REM Actuacion de la antimateria 
IF RND(-=N)5%*.9 THEN 420 

IF C=1 THEN C=2:G0TO 210 

IF C=7 THEN C=6 ¿GOTO 210 
F:=INT(RND (NN) 2) 1 

C=C+F 

GOTO 210 

REM La antimateria absorbe un atomo 
PRINT"El atomo ha sido absorbido" 
GOTO 260 

PRINTIFRINT:¡FRINTTAB (I+2%C)4C 
FOR Z=1 TOS 

PRINT TAB(6)3"= = - - - - - n 

NEXT Z 

RETURN 

PRINT TAB (3+2%C)5C 

RETURN 

REM Intento de localizacion 
FPRINT"Donde crees que esta" 
FRINT"la antimateria?" 

INFUTA (1),0(2),0C3) 

FOR T=1 TO ZiW(T)=BCOTD E NEXT T 
SR=0O 

FOR X=1 TOZS FOR Y=1 TO 3 


IF QO0=B(Y) THEN SR=SR+11B(Y)=0:0Q000=0 


NEXT YiNEXT X 
GOTO6SO 


Qu DD O Y 


O: O ¿O Ll O O A 


Ro O 
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| 620 FOR F=1 TO 2 
¡ 430 ECFO)=W (FF) 
' 640 NEXT EF 
[ 4630 TF SR:2 THEN 700 
: 640 TF SR:0 THEN FRINT"Localizastes"SR"correctam 
ente" 
0 67% TF SR=0 THEN PFRINT"Estas completamente 2quiv 
rocado!" 
ON 630% FOR Til TO 35 BECTI)=WCTDANEXT T 
: 
| 
| 
| 
| 
| 
| 
1 
1 
J 
1 
1 


O 


4620 GOTOZ60 

7006 PRINT"Bien hechos Localizastes la" 

710 PRINT"antimateria con"H"segundos" 

720 FRINT"de sobra..'" 

730 TF 6-H¿MT THEN MT=46-H 

740 PRINTi¡FRINT"T LL mejor tiempo hasta ahora son" 
WT"segundos" 

730 FOR Z=1 TO ZOCO NEXT Z 

760 GOTORO 


O 


o. o 


320. 


SWITCHEROO 


En este juego se le presentan al jugador los números del 1 al 9 
colocados en un orden aleatorio y éste tiene que conseguir ponerlos en 
orden consecutivo del 1 al 9 en el menor número de jugadas posible. 

El jugador introduce sus jugadas en forma de números y el ordena- 
dor lleva a cabo un «switcheroo» utilizando el número que el jugador 
ha introducido. Funciona: así: 


Al nonento, por favor... 


95 Moviniento numero 1 


9362 900293174 


05628 Que nunero connutamos? 


9560831 ul 


95628317 


[7] Moviniento nunero 73 


7 NN ATArEna: 
uy 123456796 


(ue nunero connutanos? 


¿340709 


Lo has hecho, campeon! 


(_) Solo has necesitado 73 movimientos... 


Este es el listado del programa: 


10 REM Switcheroo 

20 CLS 

30 PRINT:PRINT"Un momento, por favoOF uu." 
40 GOSUB 100 

50 GOSUB 2:30 

60 1F A$="123456789" THEN 400 

70 M=M+1 

80 GOTOSO 

END 

100 RANDOMIZE 

110 M=11X=0 

120 A$="" 

130 FOR T=1 TO 9 

140 L=INT(RND (-1)+9)+49 

1350 Q=i 

160 IF MID$(A$,0, 1)=CHR$(L) THEN 140 


O 


O 


o o O 


l 
) 
1 
| 
| 
j 
i 
1 
! 
p 
i 
) 
l 
] 
l 90 
! 
¡ 
4 
j 
¡ 
t 
Í 
] 
) 
| 
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440 PRINTi¿PRINT"Solo has necesitado"M"movimiento 


END 


O! 170 IF 0<T THEN O=0+1:GOTO 160 0 
180 A$=A$+CHR$ (L.) ] 
190 PRINTAS | 

O! 200 PRINT nO 
210 NEXTT 
220 RETURN 

O 230 REM Impresion 30 
240 CLS 
250 PRINT¿PRINT:¿FRINT 

O 260 PRINT"Movimiento numero'"M MO) 
270 PRINT:PRINT:FPRINT 
| 280 PRINTAS 

O | 290 PRINT:PRINT"Que numero conmutamos?" ¡O 
300 IF INKEY$<5"" THEN 300 

310 Có$=INKEYS 

O |. 320 R=VAL (CS) pÓ 
( 330 IF R¿1l OR R>8 THEN 310 
340 Bg="" 

O 1 350 FOR T=9 TO R STEP-1 ¡O 
360 Bé$=B$+MID$(4$,T,1) 

370 NEXT T | 

O 380 A$=LEFTS(A$,R-1) + ES O) 
| 0390 RETURN 

6! 400 PRINT:¿FRINT:¿FRINT O 
410 FRINTAS 
420 PRINT:PRINT:PRINT E 
ZO % qn 

O) | 430 PRINT"Lo has hecho, campeon! ¡ O 
1 1 
' ' 
| | 

| 
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FLIPPER 


Este intrigante juego puede proporcionar al jugador un grado con- 
siderable de apertura y agilidad mental. Cuando ejecuta el programa 
el jugador verá una mezcla de X y x en una red de tres por tres. 
Tendrá que terminar la partida con una X en el centro y ocho * ro- 
deándola. 

En primer lugar el jugador introduce el número del lugar que 
quiere golpear con el «flipper». Cuando se golpea una pieza situada en 
una esquina, las piezas que están junto a ésta cambian y se convierten 
en sus opuestas (es decir, X se convierte en x* y a la inversa). Si se 
golpea la pieza central por un lado cambian las dos que están situadas 
a sus lados y golpear la pieza del centro cambia las piezas de cada 
lado. 

La pieza que es golpeada cambia siempre en cada caso. 

Este es el aspecto que tiene en acción: 


O E 
4 30h £ 44 
e dE: ERA 


El numero de'x' es ] 
Solo necesitas una - en el cuadrado central 


Cual quieres nover? 


Has movido el 6 (_) 
O: Elda Le 


e A E 


e 1 


Ese fue el movimiento No 4 


El nunero dela! es d 5 


Solo necesitas una - en el cuadrado central 


Cual quieres nover? 57 


Has novido el 3 | [_) 


Lo has resuelto en solo 22 movimientos E 
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Y este es el listado: 


10 REM Flipper 

ZO DIM AO), F (4) 

ZO Mula Oy E 

40 RANDOMIZE 

50 FOR Cri TO 9 

60 A()= 

70 TF INTCORND il DO THEN AX 

80 NEXT € 

24 GOSUB 270 

100 Mod 

110 N=0 

120 FOR Ci TO 9 

130 1F A(M)=X THEN N=N-+1 

140 NEXT E 

150 1F Nel AND AC) = X THEN 330 

1060 TF Mo 0 THEN FRINT ¿FRINT"Ese fue el movimia 
nto No"M 

170 PFRINT¿FRINT"El numero de XxX" es'N 

180 PRINT¿FRINT"Solo necesitas una en el cuadr 
ado central" 

190 FRINT:FRINT"Cual quieres mover?" 

ZO00 IF INEEY$2<2"" THEN 200 

210 AS$= INEKEYS 

220 N=YVAL (AS): IF N21 OR M9 THEN 210 

A EN 

290 GOSUB 2380 

230 GOTOSO 

260 END 

270 CLSi¿FRINTi¿PRINT 

280 IF F220 THEN FRINT"Has movido el"F 

290 PRINT¿FRINT¿FRINT"1)O 2. 3%, CHR$SCA CID)" "CH 
R$(ACEDIF" "ACHR$SC(ACIH) 

200 PRINT 

210 FRINT"4 5 y CHAS (Ad "MR CARS(A CDI 
¡CHAS (A(6)) 

320 PRINT 

230 PRINT"7 8 9", ,CHR$S(AC7TI)5" "3CHRS(A(B)I330" 0" 
¡CHAR (A (93) 

240 RETURN 


O. Y QQ O 


O 


O 


O. 0 O. O 0 DO. 6 0 O O +0 


0. O 
¡o 


O 
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O: 2090 FRINTiFRINT CO 
l 360 FRINT"Lo has resuelto en solo"M"movimientos'" 1 
' 370 END ? 
¡ON 280 IF A(WD=X THEN RETURN | O 
290 IF N=1 THEN F(l)=2:F(2)=4:F()=5:F (4) =10 ( 
¡ 400 IF N=2 THEN F(l)=1F(2)=34F (3)=10:F (4) =10 
O . 410 1F N=3 THEN F(1l)=2rF(2)=5:F(3)=6 1F(4)=10 ' O 
[ 420 IF N=4 THEN F(1)=1d4F(2)=7:F (3)=10:F (4)=10 ! 

: 430 1F N=3 THEN F(1)=2:F(2)=4:F(3)=8 ¡F(4)=4 
O 440 IF N=zb6 THEN F(1)=32F (2)=9:F (3) =10:F (4)=10 8 
? 450 1F N=7 THEN F(1)=4:F(2)=51F(2)=8 :F(4)=10 . 
460 1 N=8 THEN F(1)=714F (2) =9:F (3)=10:F (4)=10 : 
O; 470 1F N=9 THEN F(D)=B1F(2)=5:1F (3)=b 1F(4)=10 E 
| 480 FOR G= 1 TO 4 : 
| 490 Ex | 
O l 500 IF A(F(G)) = X THEN F=1 ¡ O 
! 510 1F F=1 THEN A(F(6)) = Q 1 

| 520 1F F=0 AND A(F(G)) = Q THEN A(F(6))=X 
Ol 530 NEXT 6 1 Ó 
¡540 A(N)=x 
ed Y] 
330 RETURN | O 
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EN BUSCA DE DARYL 


Para terminar tenemos el juego más problemático de todos. Daryl 
se pierde en un sistema de cuevas subterráneo de una gran comple- 
jidad. 

El jugador tiene que entrar en el sistema, abrirse camino para 
encontrar a Daryl que se encuentra en la cueva 29 y después volver a 
salir. 

Las cavernas están conectadas por un conjunto de túneles coheren- 
te y estable y lo que tiene que hacer el jugador es intentar solucionar 
el enigma que supone llegar hasta Daryl, para lo cual ha de ir hacien- 
do un mapa a medida que descubre el modo en que están conectadas 
las diferentes cuevas. El jugador ha de saber que hay túneles que 
pasan por debajo de otros. Las cuevas no están dispuestas en un claro 
orden numérico. Más bien, los números de las cuevas no son sino 
meros puntos de referencia para el jugador. 

Es posible que el jugador encuentre que el problema tiene una 
difícil solución, pero en realidad no es en modo alguno imposible. Se 
deben examinar con cuidado las referencias relativas a las direcciones 
(como N para el norte y sucesivamente). De hecho, el norte no está 
arriba de la cueva ni el sur abajo. Más bien, se refieren a direcciones 
como si todo el sistema se observara a vista de pájaro y la dirección en 
la parte superior del sistema fuera el norte, el este la derecha y así 
sucesivamente. En cualquier caso, lo más probable es que las claves de 
direcciones le confundan la primera vez que ejecute el programa. 

No abandone así como así. Puede lograrse. El número de caminos 
posibles es extraordinariamente alto, así que una vez que lo ha logrado 
de un modo, es posible que quiera intentarlo de otro. A los veteranos de 
este programa les suele gustar encontrar a Daryl siguiendo un ca- 
mino diferente cada vez que lo ejecutan y después de haberlo encon- 
trado vuelven a la entrada (llevándole) por un camino diferente del 
anterior. 


Como prueba de que no es un problema sin solución, lo que se 
ofrece a continuación es un camino hasta Daryl seguido de otro para 
salir del sistema: 


Estas en camino para encontrar a 
Daryl, atrapado en este sistema de cuevas 


Estas en la cueva No 1 


Hay tuneles hacia! 

A 

Daryl esta hacia el norte de t1 
Tu Daryl-proximetro mide 3h 


A que cueva quieres 1192 


Estas en camino para encontrar a 
Daryl, atrapado en este sistema de cuevas 


Estas en la cueva No 2 
Hay tuneles hacia! 

UN e: 

Daryl esta hacia el norteeste de t1 


Tu Daryl-proximetro nide 12 


A que cueva quieres 1128 
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Estas en camino para encontrar a 
Daryl, atrapado en este sistema de cuevas 


Estas en la cueya No 8 


Hay tuneles hacias 


26 2 


Daryl esta hacia el norteeste de t1 
Tu Daryl-prozimetro mide 33 


A que cueva quieres 1p?26 


Estás en canino para encontrar a 
Daryl, atrapado en este sistema de Cuevas 


Estas en la cueva No 26 


Ra y tuneles hacia 


q 7 
o Ni] ¿ a ¿ 


Daryl esta hacia el norteeste de 41 


Tu Daryl-proxinetro mide 34 


A que cueva quieres 11923 


en camino para encontrar a 
y atrapado en este sistema de Cuevas 


Daryl esta hacia el norteeste de t1 
Tu Dar y]- pr orinetro mide E6 


cueva quieres 1r?16 


A que 


P 
Ls 
" 


2L3s A camino para encontrar El 
ar 


ylo a rapado en este sistema de cuevas 


Estas enla cueva No 16 


Hay tuneles hacia! 
3e les e 


Daryl esta hacia el norteoeste de 41 


Tu Daryl-prozinetro mide 54 


A que cueva quieres 11922 


1 = e: 3] 
LL) 


lu) 


331 


Estas en camino para encontrar a 
Daryl, atrapado en este sistema de cueva 


Estas en la cueva No 22 


JO! 


Hay tuneles hacia! 
18 23 


0 


Daryl esta hacia el norteoeste de t1 
Tu daryl-prozinetro mide 4 


A que cueva quieres 1r929 


Bien hecho.Has encontrado a Daryl 
aparentemente a salwo y blen .... 


Has encontrado a Daryl, y 
vuelves con el a la entrada 


Estas en la cueva No 29 


Hay tuneles hacia! 


la salida esta hacia el norteveste de t1 


A 


Tu 5alida-proximetro mide 55 


LC ] A que cueva quieres 11922 


Has encontrado a Daryls y 


ERE 
vuelves con ela la entrada 


mia a RA 
Estas en la cueva No ¿2 


Hay tuneles hacia 
6 2 


la salida esta hacia el norteveste de ti 
Tu 5alida-proximetro mide 44 


A que cueva quieres 1rólo 


Has encontrado a Daryl, y 
vuelves con el a la entrada 


Estas en la cueva No 18 


ay tuneles hacia! 


ab: de 


Tu Salida-proximetro mide 24 


Á que cueva quieres 1P915 


Jogo 


- 
L 


qu 


000 


= 


33 


w 
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Has encontrado a Darylo y 


vuelves con el a la 


Ñ 
z 
” 
E 


nirada 


Estas en la cueva No 13 


Hay tuneles hacia! 


la salida esta hacia el suroeste de 41 


Tu 5alida-prozimetro mide 19 


A que cueva quieres 


ro 


Has encontrado a Daryl, y 


vuelves con ela la entrada 


Estas en la cueva Noé 
tay tuneles hacia! 
15 19 
la salida esta hacia el este de 


Tu 5alida-proxinetro nide 5 


A que cueva quieres 1p9]3 


diz Bncor trado El Daryl y 
VUB Ives COn a] 3 13 ent Fada 


Estas en la cueva No 19 


Hay tuneles hacia! 


La salida esta haci 


Le 


A que cueva quie 


la el sureste de 41 


lu Salida-prozimetro mide 46 


res 11920 


Has encontrado a 


vuelves con el 


Estas en la cueva No ¿4 


3 


nar da y 
5Pa 


"E 
5 


Hay tuneles hacia! 


15143 


La salida esta hacia el 


da 


sureste de t1 


Tu 5alida-proximetro mide 25 


Á que cueva qui 
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Has encontrado a Daryl, y 
vuelves con el a la entrada 


Estas en la cueva No 21 


Hay tuneles hacia! 
11 25 2h 


La salida esta hacia el sureste de t1 
Tu 5alida-proximetro mide 63 


A que cueva quieres 1192) 


Has encontrado a Daryl, y 
vuelves con el a la entrada 
Estas en la cueva No 25 


Hay tuneles hacia: 
El 


La salida esta hacia el sureste de t] 


- 
¿ 


Tu 5alida-proximetro mide 43 


A que cueva quieres 17 


Has encontrado a Daryl, y 
vuelves con el a la entrada LJ 


1 


Estas en la cueva No 4 == 


may tuneles hacia! Ear 
m” S | Ta] 


de 


> 
La salida esta hacia el sureste de 4 a ) 


35 


Tu 5alida-prozinetro mide 22 7 


A que cueva quieres 1p91 


Eres un heroe!!! ==, 


Has conseguido Pearesar COn 
Daryl sano y salud... 


la derecho a la Moncloa 


para ser condecorado por el 
Preside ciciaa PAN 
dos volverenños a ver. heroe! 


O 
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Y este es el listado: 


10 
20 
50 
40 


50 


REM En busca de Daryl 

GOSUB 770:¿REM Inicializacion 

GOSUB 480: REM Descripcion del lugar 

GOSUB 360: REM Movimiento 

IF DA=0 AND CUEVA=29 THEN GOSUB 90: REM Has e 


ncontrado a Daryl 


18) 


sa 


y 


70 
80 
90 
100 
110 


120 
130 
140 
130 
160 
170 
180 
190 
200 
210 
AO 
AO 
240 
AO 
260 
270 
280 
290 
00 
LO 


O 
SAO 
O 
360 
270 


IF DA=1 AND CUEVA=1 THEN 210:REM Vuelta a ca 


GOTOZO 

REM e A RR A 

REM Daryl encontrado 

REM ed E E 
FRINT:FRINT"Bien hecho.Has encontrado a Dary 


FRINT"aparentemente a salvo y bien «...." 
FOR F=1 TO 1000:NEXT F 
FERINT:FRINT"Es hora de intentar" 
FPRINT"volver a la salida, con" 
PRINT"Daryl..." 

FOR F= 1 TO 1000:NEXT F 

DA= 1 

RETURN 

REM II Md MI AE A A E A 

REM Vuelta a casa 

O AE 
FRINT:¿FRINT 

ERINT"Eres un heroe!!!" 

FOR Fl TO 1000: NEXT F 
FRINT:¡FRINT"Has conseguido regresar con" 
FRINT"Daryl sano y salvO..." 
FRINT:¿FRINT 

FRINT"Ve derecho a la Moncloa" 
“RKINT"para ser condecorado por el" 
FRINT"Fresidente....... " 

FOR Fl TO 1000:NEXT EF 

FRINT"Nos volveremos a ver, heroe!" 


END 
E AAA 
REM Movimiento 


A, 7,5,2,2,2,0,0, 5,3, 


O" DD: Ye QQ 300) O. 0 


¡CO SS E 


O 


O 


O. E QQ. € 


380 
390 
40O 
410 
420 
430 
440 


eva"d: 


ao 
ADO 
470 
480 
490 
500 
s10 
ntrar 


PRINT:¿FRINT 

INFUT"A que cueva quieres irn'"i 

BANDERA=0 

FOR Kx=l TO 4 

IF Z (CUEVA, E)=J THEN BANDERA=1 

NEXT El 

IF RANDERA=0 THEN FPRINT"No hay tunel a la cu 
FOR F=l TO 1000:¿NEXT F:60T0:390 

CUEVA=J 

RETURN 

REM IE 

REM Descripcion de los lugares 

REM dd II 

CLS: FPRINT:PRINT 

IF DA=0 THEN FRINT"Estas en camino para enco 
a"*PRINT"Daryl, atrapado en este sistema de 


cuevas" 
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IF DA=1 THEN FRINT"Has encontrado a Daryl, y 


"*PRINT"vuelves con el a la entrada" 


530 
340 
550 
560 
970 
580 
590 
600 
610 
620 
630 
640 
630 
660 
670 
680 
690 
700 
710 
720 
TEO 


PRINT:¡PRINT"Estas en la cueva No"CUEVA 
PRINT:¡PRINT"Hay tuneles hacia:" 

FOR Q=i TO 4 

IF Z(CUEVA,Q)0 THEN PRINTZ (CUEVA, 1) 5 
NEXT Q 

PRINT:¿FPRINT 

IF DA=1 THEN 460 

FRINT"Daryl esta hacia el "; 

IF Z(CUEVA,5)54 THEN PRINT"norte"¡ 

IF Z (CUEVA, 5):<4 THEN PRINT"sur"; 

IF Z(CUEVA,6):27 THEN PRINT"este"; 

IF Z(CUEVA,6):7 THEN PRINT"oeste"; 
GOTO710 

PRINT"La salida esta hacia el "; 

IF Z(CUEVA,S)37 THEN FRINT"norte"; 

IF Z (CUEVA, 39):<7 THEN PRINT"sur"s; 

IF Z(CUEVA,6):7 THEN FRINT"este"; 

IF Z(CUEVA,6):7 THEN PRINT"oeste"; 
FRINT" de ti" 

FRINT:FPRINT 

IF DA=Ó THEN FRINT"Tu Daryl=proximetro mide" 


10% (ARS (Z (CUEVA, 3) -4))+AES (Z (CUEVA, 6) -7) 


740 


IF DA=1 THEN FRINT"Tu Salida-proximetro mide 


"10* (ARS (Z (CUEVA, 3) -7))+ARS (Z (CUEVA, 6) -7) 


O. 1 1... E 0 


¡CN O + E 


O 


O 
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730 
TE 
770 
780 
790 
800 
810 
e) 
Bo 
840 
850 
260 
870 
880 
890 
900 
910 
ZO 
930 
940 
930 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 


RETURE 

REA A 

REM Inicializacion 

REAL E A 

CELS 

DIM 229,6) 

FOR H=1 TO 29 

READB: READC: READD 

READE : READEF : READG 

Z(H, 1) =B:2Z(H, 20005 Z (0H, 3) =D 

Z(H, 0) =E1Z (H,30)=F31Z(H,6)=05 

NEXT H 

DA=0: REM Aun no has encontrado «a Daryl 
CUEVA = 1:REM Fosicion inicial 
RETURN 

DATA 2,7,10,0,71712394 11,118,139. 0 
DATA 26,0,0,0,10,1,24,9,710,4 2410 
DATA 27,28,0,0,10,89,139, 19,010,742 
DATA 4,1,0,0,50,18,26,2,0,10,7,4 

DATA 4,24,10,0,4,11,1,9,0,0,7,49 
DATA 21,2,0,0,2,7,26,28,0,0,11,4 
DATA 18,16,0,0,8,10,2040,04 O4 2q 2 
DATA 18,6,0,0,6,12,13,17,0,0,9,53 
DATA 16,28,0,0,11,6,13,139, 22423. 9, 11 
DATA 20,6,0,0,3,1,19,14,21,0,3, 2 
DATA 11,25,20,0,1,4,18,29,0,0,11,11 
DATA 18,26,0,0,12,1,4,9,0,0,1,12 
DATA 21,2,0,0,3,4,94 3424 1249405 
DATA 3,0,0,0,9%,7,17,1394 1210412, 7 
DATA 22,0,0,0,12,12 


¡LE y A SE SL: 


O 


O 


É 
É 
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PARA CREAR 
JUEGOS PROPIOS 


Puede suceder que cuando lleve un tiempo programando, encuentre 
que, aunque domina bien muchas de las técnicas necesarias para escri- 
bir sus propios juegos, le faltan ideas. Si es este su caso, le interesará 
este capítulo. Intentaré esbozar unos cuantos juegos que me parecen 
ideales para convertir en juegos de ordenador. 

En este momento preparo un nuevo libro de juegos y estoy buscan- 
do nuevos programas para incluir en ese volumen. Si tú, lector, has 
escrito algunos juegos que pienses que pueden ser adecuados (es de- 
cir, que merecen la pena por ser originales y no dependientes de la 
máquina), me gustaría mucho verlos con el fin de comprarlos para uti- 
lizarlos en el próximo volumen. Por supuesto, tu nombre aparecerá 
publicado junto con el programa. Sólo tomaré en consideración los lis- 
tados impresos, salidos directamente del ordenador. Puedes escribir- 
me enviando tu carta a mi editor. 

La razón de mencionar esto es que me encantaría considerar nue- 
vos programas basados en las ideas que daré en este capítulo o en 
otras diferentes. 

Volvamos ahora al punto en el que empezamos. A no ser que se 
esté informatizando un juego muy conocido, como las Damas, por 
ejemplo, en cuyo caso se espera que el programa coincida en todos los 
aspectos con la versión no informatizada, no es necesario que la ver- 
sión para ordenador de un determinado juego siga al pie de la letra las 
reglas del juego que yo bosquejo a continuación. Lo más probable es 
que, después de cierto grado de desarrollo, el juego se despega de la 
idea inicial y puede terminar pareciéndose muy poco a su «progeni- 
tor». Todo sea para bien. 
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JUEGOS PARA ADAPTAR 


SHUFFLEBOARD.—Los jugadores deslizan unas fichas planas y cir- 


culares en un tablero dirigiéndolas hacia un «blanco» triangular 
que contiene círculos pintados con números dentro de ellos. La 
ficha que termine enteramente en un círculo numerado proporcio- 
na al jugador los puntos que contenga ese número. Este juego 
tiene muchas posibles variaciones entre las que se incluyen los 
juegos del tipo de los dardos. Una vez que consiga ejecutar un 
programa de este tipo de juegos, puede hacerle los cambios super- 
ficiales precisos para convertirlo en otro juego. 


HORSESHOE.—Empezando con un tablero como éste, con las fichas 


de un jugador situadas en las posiciones marcadas con A y las del 
otro en las que están marcadas con B, los jugadores mueven por 
turno siguiendo una de las líneas para colocarse en un punto vacío. 
El juego termina cuando uno de los jugadores descubre que no 
puede mover. A pesar de su sencillez, es un juego muy interesante, 
como se puede ver al jugarlo. 


DAMOCLES.—Este juego se parece al anterior, pero usa un tablero 
más grande. El objetivo del juego es también el mismo que el del 
anterior y usa este tablero: 


| 
¡za 
MU-TORERE.—Este juego, cuyo origen se encuentra entre los mao- 

rís de Nueva Zelanda, se juega en un tablero que tiene la forma de 
una estrella de ocho puntas en la que cada punta está unida a un 
círculo en el medio. Este círculo se llama putahi. Los jugadores 
empiezan con cuatro fichas que sitúan en la parte exterior de cua- 
tro puntas consecutivas. El objetivo del juego, como en los dos 
anteriores, es conseguir que el otro jugador no pueda mover. Cada 
jugador puede mover de un punto al punto siguiente siempre que 
éste esté vacío o desde el putahi a cualquier otro punto vacío. Otra 
posibilidad es mover desde cualquier punto al putahi, pero esto 
sólo puede hacerse cuando al menos uno de los puntos que están al 
lado del punto desde el que mueve el jugador esté ocupado por 
una ficha del contrincante. 


BINGO.—Este juego se juega normalmente con cartones marcados 
con números que se van tachando según se van sacando los mismos 
números de un bombo siendo el ganador el primero que consiga 
tachar una línea entera de números en cualquier dirección. Este 
juego se puede simplificar mucho para su uso en el ordenador; éste 
puede introducir dos cartones de modo aleatorio utilizando núme- 
ros entre el cero y el 99 e imprimiéndolos en una cuadrícula de 
cinco por cinco. Posteriormente el ordenador puede escoger núme- 
ros de modo aleatorio entre el cero y el 99, tachar los números en 
los cartones y vigilar si ha ganado alguno de los dos contrincantes. 
Este programa puede hacerse todavía más interesante si, en vez de 
generar sencillamente un número de modo aleatorio, se incluyen 
dos esferas con flechas giratorias. La primera de las esferas, las 
«decenas», está marcada de cero a nueve y se hace girar primero. 
La segunda esfera está marcada como la primera, pero representa 
las «unidades». 
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JUEGOS DE DADOS.—Como ya indicaba en la introducción del 
capítulo dedicado a estos juegos, los juegos de dados son relativa- 
mente fáciles de convertir en programas para jugar con el ordena- 
dor, especialmente si no se espera que el ordenador demuestre una 
inteligencia sorprendente al jugar. Hay bastantes juegos de dados 
que se pueden intentar adaptar al ordenador. Entre estos se in- 
cluyen: 


DROP DEAD.—Se necesitan cinco dados para jugar a este juego. 
El primer jugador lanza los dados y todos los que caigan en dos o en 
cinco se retiran. El total del resto se escribe y los dados que cayeron 
en dos o en cinco se vuelven a tirar. Después de esta tirada, se vuelven 
a retirar los dados que hayan caído de nuevo en dos o en cinco y el 
total del resto de los dados se suma al total conseguido en la primera 
tirada. Este proceso continúa hasta que no quedan dados, terminando 
en ese momento la baza de ese jugador e iniciándose la del segundo 
quien repite el mismo procedimiento. El ganador es el que haya con- 
seguido más puntos. Se puede jugar una partida a tres juegos o manos 
o limitar el número total de tiradas que puede hacer por baza cada 
jugador, independientemente de que le queden dados o no. 


MARTINETTI.—Para este juego se necesitan tres dados, una 
hoja que haga de marcador con una fila de casillas numeradas de uno 
a doce y dos fichas, una para cada jugador. El objetivo del juego es 
atravesar los números por orden, antes de que lo haga el contrario. 
Los jugadores tiran los dados por turno; si uno de los dados cae en 
uno, la ficha de ese jugador se pone en la casilla número uno, si 
también ha caído otro dado en dos, la ficha puede pasarse a la número 
dos. Después de la casilla uno, los jugadores pueden escoger entre 
utilizar los puntos de un solo dado para moverse a la siguiente casilla o 
sumar el resultado de todos para ver si sale el número que necesitan 
para avanzar a la siguiente casilla. Hay una variación de este juego 
(que se suele llamar EVEREST) que consiste en descender una vez 
que se ha llegado a doce. El ganador de EVEREST es el jugador que 
consiga llegar primero al campamento base, es decir, volver a la casilla 
número uno. 


DADOS INDIOS.—Este juego es similar al POKER DE DA- 
DOS y se juega con cinco dados. El objetivo es sencillamente conse- 
guir las mejores combinaciones de dados. No se pueden conseguir, 


como en el póker de cartas, cartas adicionales tras el descarte. Se tiran 
los dados una sola vez y esa es la mano del jugador. La clasificación de 
las manos es la siguiente: 


— Cinco del mismo tipo (cinco sotas, por ejemplo). 
— Cuatro del mismo tipo. 

— Full (tres del mismo tipo y una pareja). 

— Dos parejas. 

— Una pareja. 

— El dado más alto. 


BIDOU.— Este juego también es similar al POKER DE DADOS, 
sin embargo, el objetivo del jugador es deshacerse de las fichas más 
que acumularlas. Gana la partida el jugador que ha perdido más jue- 
gos o manos. Este juego se juega con tres dados y una cantidad 
determinada de fichas que se distribuyen por igual entre los dos juga- 
dores. Se hace una apuesta y se iguala antes de que los jugadores tiren 
los dados por turno. Las jugadas se clasifican como sigue: 


Dl AAA CO O E A 
E e E LO E EA o E 0 OS E JIM E 


ALS e O MAD AS AS 


EA E E E A 


Si la combinación que sale tras tirar los dados no aparece en esta 
lista, se suman los puntos y gana el que haya conseguido más (que en 
realidad, en este juego, pierde). 


BARBOOTH.—También se le conoce con el nombre de BAR- 
BUDI y se juega con dos dados. Se sugiere aquí que los jugadores 
empiecen la partida con una banca de 30 fichas que se repartirán a 
partes iguales entre los dos jugadores, 15 para cada uno, siendo este el 
capital inicial de que disponen para las apuestas y cobrándoles dos 
fichas por cada jugada. Los jugadores tiran los dados por turno. Ga- 
nan cuando les sale 3 3; 5 5; 6 5; y 6 6. Pierden si les sale 1 1; 2 2; 
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2 1 y 4 4. Si los dos consiguen una de las combinaciones ganadoras, 
gana el que haya conseguido la combinación más próxima a la primera 
de la lista (es decir, 3 3 es mejor que 6 6). Si los dos tienen la misma 
combinación ganadora, el dinero va a la banca. Si uno de los jugado- 
res consigue una combinación que no es ni ganadora ni perdedora y al 
otro le sale una combinación perdedora, las fichas del perdedor van a 
la banca y las del otro vuelven a su propietario. 

Si a uno de los jugadores le sale una combinación ganadora y al 
otro una que no es ni ganadora ni perdedora, el ganador recupera sus 
fichas así como las apostadas por el otro. Sin embargo, si un jugador 
consigue una combinación ganadora y el otro una perdedora, el banco 
contribuye con el mismo número de fichas que se han apostado en 
total. El juego continúa hasta que alguno de los jugadores o la banca 
se han quedado sin fichas. El jugador que tenga más fichas en ese 
momento es el ganador. Observe que este modo de distribuir las 
ganancias y las pérdidas no es el mismo que cuando BARBOOTH se 
juega de modo «profesional», pero es un medio de pagar a los ganado- 
res relativamente fácil de informatizar y contribuye a que el juego sea 
más divertido. 


FIVE THOUSAND.—El jugador que consiga primero hacerse 
con 5.000 puntos es el ganador. Pueden jugar tantos jugadores como 
se quiera y se necesitan seis dados. Los jugadores van tirando los 
dados por turno y se puntúa del siguiente modo: 


— Un 5 vale 100. 

— Un 2 vale 50. 

— Tres 5 tirados en la misma jugada valen 1.000. 

— Tres 2 en la misma tirada valen 500. 

— Tres del mismo palo (salvo 2 y 5) valen 100 veces su valor 
(es decir, tres 1 valen 100 puntos, y tres 6 valen 600). 

— Si en una sola tirada se consigue la secuencia 1, 2, 3, 4 y S se 
consiguen 1.500 puntos. 

— 2, 3,4, 53 y 6 en una sola tirada valen 2.000 puntos. 


Observe que los 4 y los 6 no puntúan en este juego salvo como 
parte de una secuencia. Una vez que ha tirado, el jugador puede 
volver a tirar, si quiere, los dados que no puntúan. Sin embargo, si 
en la siguiente tirada no gana ningún punto, no podrá tirar más en esa 
baza y se le cuenta como si hubiera conseguido en total cero puntos. 


Mientras se consigan puntos, se pueden seguir tirando los dados «so- 
brantes» (con seis y cuatro). 

Este juego recompensa al jugador lento y cuidadoso con una buena 
puntuación, pero no le da ninguna posibilidad contra el jugador atrevi- 
so que decide arriesgarse a intentar conseguir una puntuación muy alta 
en una sola tirada. 


JUEGOS DE CARTAS.—Una vez que se desarrolla una rutina para 
que el ordenador pueda mantener, barajar y manejar las cartas de 
un modo razonable (y una rutina de este tipo se encuentra en 
«PROBOSCIDEO»), se tiene ya la estructura precisa para desa- 
rrollar toda una multitud de juegos. Cualquier libro sobre el tema 
ofrece muchas más ideas de las que uno puede utilizar. Aquí van 
unas cuantas para empezar: 


TRENTE ET QUARANTE.—Este juego, que nació en el siglo 
XVII en Europa, se conoce también con el nombre de ROUGE ET 
NOIR. En la versión que se juega en los casinos se utilizan seis ba- 
rajas, pero se puede jugar utilizando simplemente una. Las cartas se 
reparten en dos filas examinándose el total de cada fila después de 
añadir una nueva carta. Las jotas, los reyes y las reinas cuentan diez y 
el resto de las cartas (incluyendo el as) cuentan su valor. En el mo- 
mento en que el total de una fila sea igual o sobrepase a 31 se dejan de 
añadir cartas a esa fila. Sin embargo, el jugador que reparte sigue 
añadiendo cartas a la otra fila hasta que ésta también llegue o sobrepa- 
se 31. La primera fila se llama «Black» independientemente de las 
cartas que la compongan, y la segunda se denomina «red». 

Los jugadores apuestan a cuál de las dos filas se aproximará más 
a 31. También pueden apostar a que el color de la primera carta reparti- 
da será o no igual al nombre del color de la fila ganadora. Todas las 
apuestas se hacen contra la banca y los ganadores reciben la cantidad 
apostada más la misma cantidad (uno a uno). Si las dos filas suman 31, 
la banca se queda con la mitad de la apuesta y devuelve el resto al 
jugador. 


CARD CRAPS.— Este juego se ideó para sustituir a los dados al 
prohibirse éstos en algunos estados de Estados Unidos. Se utiliza una 
baraja especial de 48 cartas hecha utilizando los ases, doses, treses, 
cuatros, cincos y seises de otras dos barajas. Las reglas son las mismas 
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que las que se siguen en un juego de dados con el SIETE/ONCE que 
se incluye en este libro. 

En su versión simplificada, eliminando el complicado sistema de 
apuestas, se juega del modo siguiente: 


— Un total de 2, 3 ó 12 es «crap» y el jugador que reparte, la 
mano, pierde y pasa las cartas al siguiente jugador para que siga él 
levantando cartas. 


— Un total de 7 u 11 es un «natural» y el jugador gana. 


— Cualquier otro número (4, 5, 6, 8, 9 ó 10) es el «punto» del 
jugador y éste ha de continuar sacando cartas hasta que le vuelva a 
salir ese número, momento en que el jugador gana el juego. Sin 
embargo, si le sale un 7 antes de que le salga el número que busca, el 
jugador pierde la jugada. 


THREE CARD BRAG.— Este juego fue el precursor del póker y 
se juega con tres cartas, en vez de las cinco del póker. Estas son las 
combinaciones que se pueden hacer clasificadas de las más altas a las 
más bajas: 


— «pryle», tres cartas del mismo tipo (p. ej., tres jotas...); 
— «on a bike», una secuencia de tres cartas del mismo palo; 
— «run», tres cartas seguidas; 

— «flush», tres cartas del mismo palo; 

— «pareja», dos cartas del mismo tipo; 

— «la carta más alta». 


Se utiliza una baraja normal (de póker) y los ases son los que más 
valen, excepto en «on a bike» y «run» en donde 3, 2, as, vence a as, 
rey, reina. Este juego se puede modificar dando a cada jugador siete 
cartas en vez de tres; el jugador divide éstas en dos grupos de tres 
cartas a su elección o también se pueden dar nueve cartas en cuyo 
caso se crean tres cartas. 


AS-DOS-JOTA.—Es este un sencillo juego en el que la mano, el 
jugador que reparte, o levanta, las cartas, lleva una gran ventaja. En 
este juego, los jugadores apuestan sobre la posibilidad de que la si- 
guiente carta levantada será un as, un dos o una jota. 


QUITA Y PON.—Este juego de apuestas usa una especie de peón o 
peonza de ocho lados que los jugadores hacen bailar o girar. Al 
comienzo del juego todos los jugadores tienen 10 fichas y el mon- 
tón 30. Los jugadores hacen girar la peonza por turno y, siguiendo 
las instrucciones que aparecen en ésta, ponen o quitan fichas del 
montón. Cuando un jugador se queda sin fichas tiene que retirarse 
terminando el juego cuando ya no quedan fichas en el montón. Las 
instrucciones escritas en los lados de la peonza son: 


— Pon una. 

— Quita una. 
— Pon tres. 

— Quita tres. 
— Pon cuatro. 
— Quita cuatro. 
— Pon todas. 
— Quita todas. 


BOULE.— Esta es una forma simplificada de la ruleta que apareció en 
el siglo XVIM. Se suele encontrar en los casinos europeos. La rueda 
está dividida en 18 segmentos, numerados de 1 a 9... por duplica- 
do. El jugador apuesta al número ganador o a si será rojo o negro, 
par o impar, alto o bajo. Excepto los cincos de la rueda que suelen 
ser amarillos, los rojos y los negros alternan, de modo que hay, por 
ejemplo, un seis rojo y un seis negro, un nueve rojo y un nueve 
negro y así sucesivamente. Un número alto es un número por 
encima de cinco y los bajos serán los que estén por debajo de éste. 
Si un jugador apuesta por un número y sale este número, la banca 
le pagará siete a uno, en el caso de que haya apostado a una 
«característica» de ese número, es decir, par o impar, rojo o negro, 
alto o bajo, etc., se la paga uno a uno. 
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Waht to do After you hit Return, People's Computer Company 
(Hayden Book Co., Inc., Rochelle Park, New Jersey, 1980). 
Everyman's Indoor Games, Gyles Brandreth (Dent, Everyman's Li- 

brary, London, Melbourne and Toronto, 1982). 

A Player's Guide to Table Games, John Jackson (Stackpole Books, 
Harrisburg, Pennsylvania, 1975). 

Games for two, John Wasley (Proteus, London and New York, 1981). 

The Addison-Wesley Book of Apple Computer Software 1982, Jeffrey 
Stanton and John Dickey, editors (The Book Company, Lawndale, 
California, 1982). 

Dicing with Dragons, lan Livingstone (Routledge € Kegan Paul, 
London, Melbourne and Henley, 1982). 

Fantasy Role Playing Games, J. Eric Holmes (Hippocrene Books Inc., 
New York, 1981). 


Libros sobre ajedrez de Computer Science Press: 


Chess and Computer, David Levy (1976). 

More Chess and Computers, David Levy and Monroe Newborn 
(1980). 

All About Chess and Computers, David Levy and Monroe Newborn 
(1983). 

(Computer Science Press, Rockville, Maryland). 


353 


É 
É 
4 


cetro ao, 


GLOSARIO 


ACUMULADOR.—Parte de la unidad aritmético-lógica del ordena- 
dor que almacena los resultados intermedios. 

ALGEBRA BOOLEANA.—El álgebra del mecanismo de toma de 
decisiones y lógica que desarrolló el matemático inglés George 
Boole. De ella depende la habilidad que muestra el ordenador a la 
hora de tomar decisiones. 

ALGORITMO.—La secuencia de pasos dados en la solución de un 
problema. 

ALFANUMERICO.—Se utiliza generalmente para describir el tecla- 
do que contiene teclas alfabéticas y numéricas, en comparación con 
el teclado numérico que sólo tiene teclas para los números del uno 
al nueve. 

APL.—Siglas de Automatic Programming Language, un lenguaje 
desarrollado por Iverson a principios de los años sesenta que apoya 
una amplia serie de operadores y estructuras de datos. Usa un 
conjunto de caracteres no estándar. 

ARCHIVO («File»). —Grupo de informaciones relacionadas entre sí 
que se procesan juntos, tales como el archivo de un estudiante, etc. 

ASCI.—Siglas de «American Standard Code for Information Ex- 
change». Se trata de un código casi universal para caracteres, 
números y símbolos. 

BASE DE DATOS.—Colección de datos organizada de modo que el 
ordenador pueda acceder rápidamente a ella. 

BASIC.—Siglas de «Beginner's All-purpose Symbolic Instruction 
Code»; es el lenguaje que se usa generalmente en los microordena- 
dores. Es fácil de aprender, ya que la mayoría de las instrucciones 
son muy parecidas al inglés. 
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BAUDIO.—Unidad para medir la velocidad de transmisión de los da- 
tos. Normalmente representa el número de «bits» (unidades dis- 
cretas de información) por segundo. 

«BENCHMARK>».—(Véase «Punto de referencia».) 

BINARIO .—Sistema de numeración en el que hay sólo dos símbolos, 
0 y 1 (en oposición al sistema decimal ordinario en el que hay diez 
símbolos, 0, 1, 2, 3, 4, 5, 6, 7, 8, y 9). Los ordenadores «piensan» 
en términos binarios. 

«BOOTSTRAP».—Primer programa que se ejecuta tras la conexión 
del ordenador y que permite a éste aceptar y comprender otros 
programas. 

«BUFFER».—(Véase «Regulador».) 

«BUG».—Error en un programa. 

BUS.—Grupo de conexiones eléctricas usadas para unir un ordenador 
a otro mecanismo auxiliar o a otro ordenador. 

«BYTE».—El grupo más pequeño de «bits» (véase «bit») que forma 
una palabra en el ordenador. Generalmente un ordenador se 
describe por sus «bits», ya sea de «ocho bits» o de «dieciséis bits» lo 
que significa que la palabra consiste en una combinación de ocho o 
de dieciséis ceros O unos. 

CAMPO.—Colección de caracteres que forman un grupo distinto, 
como un código de identificación, un nombre o una fecha; 
generalmente un campo forma parte de una información. 

CIRCUITO PRINCIPAL («Motherboard»).—Unidad que está equi- 
pada de modo que se le puedan añadir al ordenador circuitos 
adicionales proporcionándole así características de las que carece ese 
modelo estándar (tales como gráficos de alta resolución o control de 
robot). 

CODIGO DE CARACTERES.—Es el número ASCII (véase ASCII) 
que se refiere a un símbolo en particular, tales como 32 para un 
espacio O 65 para la letra «A». 

COBOL. .—Siglas de Common Business Orientated Language, un 
lenguaje de programación estándar, muy parecido al inglés, que se 
utiliza fundamentalmente en el mundo de los negocios. 

COMPARTIDO.—Se utiliza este término cuando se da el caso de un 
gran número de usuarios, cada uno en un terminal distinto, que 
utilizan el mismo ordenador, el cual divide su tiempo entre los 
diferentes usuarios de modo que da la impresión de que les está 
dedicando «toda su atención» por separado. 

COMPILADOR.—Programa que pasa otro programa escrito en un 
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lenguaje de alto nivel (parecido al humano) al lenguaje de la 
máquina de modo que ésta lo entienda directamente. 
CONCATENAR.—Se llama concatenación a la suma de dos series. 
CP/M.—Siglas de Control Program/Microcomputer; se trata de un 
sistema universal de Operación por medio de disco desarrollado y 
puesto en el mercado por Digital Research, en Pacific Grove, 
California. 
DATOS.—Término general para la información procesada por un 
ordenador. 
«DEBUG».—Quitar los errores («bugs») de un programa. 
DIAGRAMA DE FLUJO («Flowchart»).—Trazado escrito de la 
estructura y curso de un programa en el que se utilizan formas 
diferentes, como un rectángulo con los lados inclinados para indicar 
un ordenador en acción, un diamante para las decisiones tomadas 
por el ordenador. Normalmente, antes de introducir una sola línea 
del programa en el ordenador se suele hacer el gráfico de éste. 
DIRECCION.—Número que se refiere a la posición, generalmente 
en la memoria del ordenador, en la que se almacena la información. 
DISCO.—Un medio de almacenaje magnético (más adelante descrito 
como «disco duro» O «disco flexible») utilizado para almacenar la 
información del ordenador y los programas. Estos discos se parecen 
hasta cierto punto a los discos de música de 45 rpm y miden 
generalmente ocho, cinco y un cuarto o tres pulgadas de diámetro. 


En algunos sistemas también existen «microdiscos» más pequeños. 


todavía. 

DISCO FLEXIBLE.—Ver disco. 

DOBLE DENSIDAD.—Adjetivo con el que se describe a los discos 
grabados utilizando una técnica especial que, como su nombre 
sugiere, duplica la cantidad de almacenaje que el disco proporciona. 

DOCUMENTACION.—Las instrucciones y explicaciones escritas 
que acompañan a un programa. 

DOS.—Siglas de «Disk Operating System»: el programa que permite 
que el ordenador controle un sistema de disco. 

ENSAMBLADOR («Assembler»).—Es un programa que convierte 
otro programa escrito en lenguaje de ensamble («assembly langua- 
ge») en un código que el microprocesador puede ejecutar directa- 
mente. 

ENTRADA (INPUT).—Toda la información que se introduce en un 
programa durante su ejecución. 


EPROM.—Siglas de «Erasable Programmable Read Only Memory», 
un mecanismo que contiene información bajo una forma semi 
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permanente y que exige una exposición a la luz ultravioleta en el 
caso de querer borrar sus contenidos. 

ESTRUCTURA PRINCIPAL (Mainframe).—Es el término utilizado 
en el caso de ordenadores «gigantes» como el IBM 307. Los 
ordenadores se clasifican asimismo como miniordenadores y mi- 
croordenadores (el tipo de ordenador que posiblemente utilice el 
lector). 


«FIRMWARE».—Los componentes físicos, la maquinaria de un 
sistema de ordenador se denominan «hardware»; los programas, en 
forma legible para la máquina ya sean en discos o cassettes, se 
llaman «software» y los programas que funcionan dentro del 
ordenador relacionados íntimamente con el «hardware» se denomi- 
nan «firmware». El «firmware» puede alterarse, hasta cierto punto, 
por medio del «software». 

FORTRAN.—Un lenguaje de ordenador de alto nivel que se usa 
generalmente para el trabajo científico (siglas de FORmula 
TRANSslation). 

«GATE».—«Componente» del ordenador que toma decisiones permi- 
tiendo que el circuito vaya en una u otra dirección dependiendo de 
las condiciones que ha de satisfacer. 

GIGO.—Siglas de «Garbage In Garbage Out» con lo que se quiere 
indicar que si se introduce «basura» («garbage»), es decir, datos 
erróneos, el resultado del procesado de tales datos será también 
«basura». 

GLOBAL.—El conjunto de condiciones que afectan a todo un 
programa se denominan «global», opuesto a «local» en el caso de 
que no afecten a todo un programa. 

«HARD COPY>».—La información que el impresor vierte en papel. 

«HARDWARE».—Se denomina «Hardware» a la maquinaria física 
del ordenador (véase «software y «firmware»). 

HEXADECIMAL.—Un sistema de contar muy apreciado por los 
programadores de código de máquina ya que está en estrecha 
relación con el método de almacenaje utilizado por los ordenado- 
res; está basado en el número 16 en vez del 10, que es el número en 
el que se basa nuestro sistema de contar ordinario. 

IMPRESOR DE LINEA .—Impresor que imprime una línea completa 
de caracteres de una sola vez. 

IMPRESOR DE MATRIZ DE PUNTOS («Dot-Matrix Printer»).— 
Impresor que forma las letras y símbolos con puntitos, normalmen- 
te en una cuadrícula de ocho por ocho o de siete por cinco. 


IMPRESOR TERMICO.— Mecanismo que imprime el «Output» del 
ordenador en un papel sensible al calor. Aunque los impresores 
térmicos son más silenciosos que los otros su salida «Output» no 
siempre es fácil de leer ni tampoco es fácil de almacenar el papel 
utilizado. 

INTERPRETE.—Convierte el programa de alto nivel («comprensible 
por el humano») en un programa comprensible para el ordenador. 

KILOBYTE.—Unidad de medida del lenguaje; un kilobyte (general- 
mente abreviado en K) equivale a 1024 «bits» (ver «bit»). 

LENGUAJE DE ALTO NIVEL.—Lenguajes de programación pare- 
cidos a la lengua del usuario (generalmente al inglés). Los lenguajes 
de bajo nivel están más cercanos a los lenguajes comprensibles para 
el ordenador. Como los lenguajes de alto nivel han de pasarse a una 
forma comprensible por el ordenador antes de poder procesarlos, su 
ejecución es más lenta que la de los de bajo nivel. 

LENGUAJE DE MAQUINA.—Es el escalón inferior a un lenguaje 
de bajo nivel; este es el lenguaje que el ordenador entiende 
directamente. 

MEMORIA.—El mecanismo o mecanismos utilizados por el ordena- 
dor para guardar la información y los programas que se procesan así 
como el conjunto de instrucciones que le indican a éste el modo de 
llevar a cabo el programa. Básicamente existen dos tipos de 
memoria (ver RAM y ROM). 

MEMORIA DINAMICA .—Memoria que ha de recargarse continua- 
mente con el fin de que mantenga sus contenidos. 

MEMORIA VOLATIL.—Un mecanismo de memoria que pierde sus 
contenidos cuando se le corta la corriente (ver «Memoria», «Refres- 
co», ROM y RAM). 

MICROPROCESADOR.—El «Chip» que hace de corazón del orde- 
nador. Es la parte «pensante» de éste. 

MODEM.—Siglas de «MOdulator/DEModulator, mecanismo que 
permite que el ordenador se comunique con otro por medio del 
teléfono. 

MONITOR.—a) una pantalla de televisión usada como unidad de 
«display» de un ordenador; carece de mandos de ajuste; b) la 
información que lleva el ordenador y que le permite comprender y 
ejecutar las instrucciones del programa. 

«MOUSE».—Unidad de control, ligeramente más pequeña que un 
paquete de tabaco, que rueda sobre la mesa y mueve en sentido 
paralelo un cursor sobre la pantalla con el fin de seleccionar las 
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diferentes opciones y tomar decisiones dentro del programa. Los 

«mouses» funcionan ya sea por la acción de sus ruedas o leyendo 

una cuadrícula en la superficie sobre la que se mueven. 

OCTAL.—Un sistema de numeración basado en el ocho (utilizando 
los números 0, 1, 2, 3, 4, 5, 6 y 7). 

«ON LINE».—Mecanismo que está bajo el control directo del 
ordenador. 

PASCAL.—Un lenguaje de alto nivel desarrollado a finales de los 
años sesenta por Niklaus Wirth y que anima a una programación 
disciplinada y estructurada. 


PILOT.—Lenguaje de nivel alto que se utiliza generalmente para 
desarrollar los programas de ordenador utilizados en educación. 


PONER A CERO («Reset»).—Señal que vuelve al ordenador al 
punto en el que estaba al encenderlo. 

«PORT>».—Punto de entrada o salida a través del que se transfieren 
los datos en un ordenador. 

PROCESADOR DE TEXTO («Word processor»).—Es un ordena- 
dor dedicado (o un ordenador que opere un programa de proceso 
de textos), que da acceso a una «máquina de escribir inteligente» 
con una amplia gama de posibilidades de ajuste y corrección. 

PROGRAMA .—Serie de instrucciones que sigue el ordenador para 
llevar a acabo una tarea determinada. 

PUNTO DE REFERENCIA («Benchmark»).—Prueba que se realiza 
para medir algún aspecto del funcionamiento de un ordenador que 
se puede comparar al resultado de ejecutar una prueba similar en 
otro ordenador. 

RAM.—Siglas de «Random Access Memory»; es la memoria que 
permite al ordenador mantener el programa en curso de ejecución. 
Los contenidos del RAM pueden cambiarse mientras que los 
contenidos del ROM no pueden cambiarse bajo el control del 
«software». 

RED («Network»).—Grupo de ordenadores que funcionan juntos. 

REGULADOR («Buffer»). —Mecanismo de almacenaje que mantie- 
nen la entrada a partir de un mecanismo tal como una tecla, tecla 
que va soltando con la frecuencia que le dicta el ordenador. 

REFRESCO.—Las memorias dinámicas (ver «memoria») han de 
recibir irrupciones de electricidad periódicas con el fin de que 
mantengan sus contenidos. La señal que recuerda a la memoria 
cuáles son sus contenidos se llama señal de refresco. 


REGISTRO.—Punto de la memoria del ordenador que contiene da- 
tos de frecuente uso. 

ROM.—Véase RAM. 

RS-232.—Norma de conexión estándar que conecta un Modem o el 
equipo asociado a la terminal a un ordenador. 

S-100 BUS.—Se trata también de una norma de conexión estándar 
(véase RS-232) hecha con 100 líneas de comunicación común 
paralelas que se usan para conectar los circuitos dentro de los 
microordenadores. 

SALIDA (OUTPUT).—Todos los datos producidos por el ordenador 
mientras está procesando, ya aparezcan estos datos en la pantalla o 
los vierta al impresor o los use internamente. 

SNOBOL.—Lenguaje de alto nivel desarrollado por los laboratorios 
Bell que utiliza el reconocimiento de esquemas o dibujos y 
manipulación de las series O cadenas («strings»). 

SENALIZADOR («Flag»).— Indicador interior del programa que da 
información sobre una condición determinada. 

SISTEMA OPERATIVO («Operating System»).—Es un programa 
que controla el funcionamiento general del ordenador y sus peri- 
féricos. 

SISTEMA «LLAVE EN MANO».—Sistema (generalmente para uso 
en el mundo de los negocios) que está preparado para ejecutar y 
sólo necesita que «se apriete una tecla» para que funcione. 

«SOFTWARE» (logical).—Es el programa que ejecuta el ordenador 
(véase «Firmware»). 

«SOFTWARE» APLICADO.—Programas escritos para la realización 
de tareas especiales, como procesado de palabras o listas de 
correspondencia. 

«SOFTWARE» DE SISTEMAS.—Secciones de códigos que llevan a 
cabo tareas administrativas dentro del ordenador o ayudan en la 
escritura de otros programas, pero que no se usan para realizar la 
tarea que se quiere que realice el ordenador. 

SINTAXIS.—Como en las lenguas humanas, la sintaxis es el conjunto 
de reglas estructurales que gobiernan el uso de un lenguaje de 
ordenador. 

SUBRUTINA .—Parte del código, o programa, a la que se llama un 
número determinado de veces durante la ejecución del programa. 

TECLADO HEX («Hex Pad»).—Teclado, parecido al de una calcula- 
dora, que se usa para introducir directamente los números hexade- 
cimales. 
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TECLADO NUMERICO («Numeric Pad»).—Mecanismo utilizado 
para introducir información numérica en el ordenador, parecido a 
una calculadora. 

TIEMPO REAL.—Cuando una acción realizada en el ordenador 
progresa paralelamente al tiempo del «mundo real», se dice que la 
acción ocurre en tiempo real. Un ejemplo sería un programa que 
mostrara el desarrollo de una colonia de bacterias que se reproduje- 
ran con el mismo ritmo de crecimiento que lo haría una colonia 
real. Ultimamente han aparecido muchos juegos que requieren 
reacciones en tiempo real. La mayoría de los juegos de las 
máquinas de los salones recreativos transcurren en tiempo real. 
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NOTAS 


EL LIBRO GIGANTE DE LOS JUEGOS PARA ORDENADOR es una 
recopilación cuidadosamente escogida de más de 40 juegos 
para ordenador agrupados por temas: Juegos de Mesa, 
Juegos de Aventura, Simulaciones, Juegos de Dados, 
Inteligencia Artificial, Pura diversión, Juegos espaciales, 
Juegos de Concentración. El libro, además de proveer material 
para muchísimas horas de diversión con el ordenador, 

explica detalladamente las bases del diseño de juegos, a lo 
que dedica un capítulo en especial, comentando en cada tipo 
de juegos los algoritmos en los que se basan, cómo están 
expresados en el programa y cómo se pueden mejorar. 

Los listados de los programas son utilizables en cualquier 
microordenador programable en BASIC. 
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